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Preface 


This book has been designed to teach you advanced programming 
techniques for the 6502 microprocessor in a systematic and progressive 
way. Developing a program involves devising a suitable algonthm and 
appropriate data structures, and then coding the algorithm. In the case 
of a microprocessor such as the 6502, the design of the algorithm and the 
data structures is generally constrained by three conditions: 


1. The amount of memory available is often limited or must be 
minimized; i.e., the program must be terse. 


2. The highest possible execution speed may be required. Efficient 
coding of the program into assembly level language instructions 
then becomes an essential consideration. In particular, the use of 
registers must be optimized. 


3. The specific input/output design requires an understanding of the 
input and output chips and their programming. 


Thus, when evaluating designs for an algorithm and data structures, 
the programmer must weigh the merits of the various techniques in terms 
of his skill, the memory limitations, the requirec speed of execution, 
and the overall probability of success. 

Advanced programming for the 6502, therefore, involves knowledge 
of all the chips that may be affected by the program, in addition to the usual 
programming skills concerned with the algorithm, the data structures, 
and the efficient use of internal instructions and registers. This book 
provides a comprehensive and complete overview of all the important 
techniques required to program a 6502 system efficiently. The book has 
been designed as an educational text. Each chapter introduces new con- 
cepts, chips, or techniques in turn. In the final chapters more complex 
algorithms are presented, which integrate the techniques presented 
throughout the book. 

For clarity and consistency, this book uses a specific 6502-based 
system on which all the programs will run. The details are presented in 
Chapter |. However, the programs and techniques presented here are 
applicable to all 6502-based systems. Similarly, all the programs studied 
in this book are presented in the form of realistic games involving success- 
ively all the techniques described. They cover most types of applications 
ranging from simple input/output techniques to sophisticated real-time 
simulations, including the handling of interrupts and the design of com- 
plex data structures. 
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A case study approach is used, and each chapter contains the following: 
1. A description of the concepts and techniques to be studied 


2. The specifications of the program’s behavior and a typical session 
with the program, i.e., the problem to be solved 


3. The algorithm(s): theory of operation, design, and trade-offs 


4. The actual program: data structures, programming techniques, 
specific subroutines, merits of alternative techniques, and a com- 
plete program listing. 


Variations and exercises are also proposed in each chapter. 

Thus, you will first study the definition of the problem, then observe 
the expected program behavior, and then learn how to devise a possible 
solution (algorithm plus data structures). Finally, you will design a 
complete program for this algorithm in 6502 assembly level language, 
paying specific attention to the required data structures, the efficient use 
of registers, the input/output chips, and the techniques used for efficient 
programming. 

You will sharpen your skills at using input/output techniques including 
timers and interrupts. But most importantly, you will be consistently 
reminded of the trade-offs between ease in programming, use of 
memory, efficiency of execution, and algorithmic improvements by use 
of specialized hardware or software techniques. 

In order to learn the advanced programming techniques presented in 
this book, it is not necessary to build any actual hardware. However, it is 
necessary to write programs on your own along the ten chapters of 
this book. By showing you and explaining in detail the design of many 
actual programs, the author hopes to facilitate your next step: actual 
programming. 
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1. Introduction 


In order to learn the techniques and study the program examples 
presented in this book, no specific equipment is required. However, the 
availability of a 6502-based system is a major advantage to develop and 
test 6502 programs on your own. Bear in mind that each 6502-based 
system will have a somewhat different input/output configuration. The 
techniques presented in this book are applicable to all, and the programs 
can be easily adapted once you understand input/output operations. 

To read this book, you should be familiar with the 6502 instruction set 
and basic programming techniques on the level of Programming the 6502. 
A basic knowledge of input/output techniques is also recommended. 
(This topic is covered in 6502 Applications.) 

The programs presented in Chapters 2 through 11 range from simple 
to complex. In order to implement these programs, algorithms will be 
devised and data structures will be designed. This is the process any 
disciplined computer programmer must go through when designing a 
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program solution for a given problem. The ten case studies presented in 
this book will also familiarize you with common input/output techni- 
ques. Toward the end of the book, you will find that the problems 
presented pose increasingly complex intellectual challenges to devising 
efficient solutions. All the strategies presented in this book, including 
the one used for the Tic-Tac-Toe game in Chapter 1, are believed to be 
Original. These strategies and the design process will be analyzed in 
detail. As an additional design constraint intended to teach you efficient 
design, all the algorithms and data structures presented in this book 
have been designed to result in a program that can reside within less than 
1K of available memory. 

The programs presented in this book have been tested on actual 
hardware by many users and have been found to be error-free in the con- 
ditions under which they were tested. As in any large set of programs, 
however, inadequacies or improvements may be found. 


OPTIONAL HARDWARE SUPPORT 


The programs contained in this book can be developed on any 
6502-based system. However, in order to be executed they require a 
specific input/output environment. For the sake of simplicity, a 
uniform hardware environment has been used throughout this book. It 
assumes a 6502-based board, the SYM board (by Synertek Systems), 
and an additional input/output board, called the Games Board, which 
can be easily built. For completeness, an overview of the SYM board 
and a complete description of the Games Board will be provided in this 
chapter. However, it is not necessary to purchase or build these boards 
to understand the information presented in this book. The Games 
Board may also be adapted easily to other 6502-based computers such as 
Commodore or Apple computers. The programs remain essentially un- 
changed except for input/output device allocations. 

The Games Board can also be simulated on a standard terminal by 
displaying information on a CRT screen and capturing input from a 
normal alphanumeric keyboard. 

A photograph of the Games Board is shown in Figure 1.1. The 
keyboard on the right is used to provide inputs to the microcomputer 
board, while the LEDs on the left are used to display the information 
sent by the program. The specific use of the keys and the LEDs will be 
explained in each chapter. A speaker is also provided for sound effects. 
It can be mounted in an enclosure (box) for improved sound quality (see 
Figure 1.2). This input/output board can be easily built at home from a 
small number of low cost components. 
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Fig. 1.2: Enclosure May Be Used for improved Sound 
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CONNECTING THE SYSTEM 


If you wish to assemble the actual system and build the input/output 
board, read on. If you are not interested in building any actual hard- 
ware, proceed to the description of an important program subroutine 
that will be used repeatedly in this book: the keyboard input routine. 

Four essential components are required to assemble the Games 
Board: 


1 - the power supply 

2 - the SYM board 

3 - the Games Board 

4 - (preferably) a cassette recorder 


The first requirement is to connect the wires to the power supply. If 
it is not already so equipped, two sets of wires must be connected to it. 
(See Figure 1.3.) First, it must be connected to a power cord. Second, 
the ground and plus 5V wires must be connected to the SYM power 
connector, as per the manufacturer’s specifications. 

Next, the Games Board should be physically connected to the SYM. 
Two edge connectors are required for the SYM: both the A connector 
and the AA connector are used. (See Figure 1.4.) There is also a power 


source connector. 

Always be careful to insert the connectors with the proper side up 
(usually the printed side). An error in inserting the power connector, 
in particular, will have highly unpleasant results. Errors in inserting 
the I/O connectors are usually less damaging. 

Finally, if a cassette recorder is to be used (highly recommended), 
the SYM board must be connected to a tape recorder. At the 
minimum, the ‘‘monitor’’ or ‘‘earphone’’ wires should be connected, 
and preferably the ‘‘remote’’ wire as well. If new programs are going 
to be stored on tape, the ‘‘record’’ or ‘‘microphone’”’ wire should also 
be connected. (See Figure 1.5.) Details for these connections are given 
in the SYM manual. 

At this point the system is ready to be used. (See Figure 1.6.) If you 
have one of the games cassettes (available separately from Sybex), 
simply load the cassette into the tape recorder. Press the RST key after 
powering up your SYM, and load the appropriate game into your 
SYM. You are ready to play. 

Otherwise, you should enter the hexadecimal object code of the 
game on the SYM keyboard. All games are started by jumping to 
location 200 (‘*GO 200’’). 
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Fig. 1.4: The Games Board is Connected to the SYM with 2 Connectors 
(Note also Power and Cassette Connectors) 
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Fig. 1.6: The System is Ready to be Used 
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GAMES BOARD INTERCONNECT 
The Keyboard 


The board’s components are shown in Figure 1.7. The LED ar- 
rangement used for the games is shown in Figure 1.8. The keyboard 
used here is of the “‘line per key’’ type, and does not use a matrix ar- 
rangement. Sixteen keys are required for the games, even though more 
keys are often provided on a number of ‘‘standard keyboards,’’ such 
as the one used in the prototype of Figure 1.7. On this prototype, the 
three keys at the bottom right-hand corner are not used (keys H, L, 
and ‘‘shift’’). 

Figure 1.9 shows how a 1-to-16 decoder (the 74154) is used to iden- 
tify the key which has been pressed, while tying up only four output 
lines (PBO to PB3) — four lines allow 16 codes. The keyboard scan- 
ning program will send the numbers 0-15 in succession out on lines 
PBO-PB3. In response, the 74154 decoder will decode its input (4 bits) 
into each one of the 16 outputs in sequence. For example, when the 
number ‘‘0000’’ (binary) is output on lines PBO to PB3, the 74154 
decoder grounds line 1 corresponding to key ‘‘0’’. This is illustrated in 
Figure 1.9. After outputting each four-bit combination, the scanning 
program reads the value of PA7. If the key currently grounded was 
not pressed, PA7 will be high. If the corresponding key was pressed, 
PA7 will be grounded and a logical ‘‘0’’ will be read. For example, in 





Fig. 1.7; Games Board Elements (Prototype) 
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Fig. 1.8: The LEDs 


Figure 1.10, a key closure for key 1 has been detected. As in any scan- 
ning algorithm, a good program will debounce the key closures by im- 
plementing a delay. For more details on specific keyboard interfacing 
techniques, the reader is referred to reference C207 — Microprocessor 
Interfacing Techniques. 

In the actual design, the four inputs to the 74154 (PBO to PB3) are con- 
nected to VIA #3 of the SYM. PA7 is connected to the same VIA. The 
3.3 K resistor on the upper right-hand corner of Figure 1.9 pulls up 
PA7 and guarantees a logic level ‘‘1’’ as long as no grounding occurs. 

The GETKEY program, or a similar routine, is used by all the pro- 
grams in this book and will be described below. 


The LEDs 


The connection of the fifteen LEDs is shown in Figure 1.11. Three 
7416 LED drivers are used to supply the necessary current (16 mA). 

The LEDs are connected to lines PAO to PA7 and PBO to PB7, ex- 
cepting PB6. These ports belong to VIA #1 of the SYM. An LED is lit 
by simply selecting the appropriate input pin of the corresponding 
driver. The resulting arrangement is shown in Figure 1.12 and Figure 
1.13. 
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Fig. 1.10: Detecting a Key Closure 
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Fig. 1.11: LED Connection 
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Fig. 1.12: LED Arrangement on the Board 


The resistors shown in Figure 1.11 are 330-ohm resistors designed as 
current limiters for the 7416 gates. 

The output routines will be described in the context of specific 
games. 


Required Parts 


One 6’’ x 9”’’ vector-board 
One 4-to-16 decoder (74154) 
Three inverting hex drivers (7416) 
One 24-pin socket 
Three 14-pin sockets (for the drivers) 
One 16-key keyboard, unencoded 
Fifteen 330-ohm resistors 
One 3.3 K-ohm resistor 
One decoupling capacitor (.1 mF) 
Fifteen LEDs 
One speaker 
One 50-ohm or 110-ohm resistor (for the speaker) 
Two 15’’-20’’ long 16-conductor ribbon cables 
One package of wire-wrap terminal posts 
Wire-wrap wire 
Solder 
A soldering iron and a wire-wrapping tool will also be required. 
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VIA NUMBER ‘1 


YO ©& 
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7 
Fig. 1.13: Detail of LED Connection to the Ports 
Assembly 


A suggested assembly procedure is the following: the keyboard can 
be glued directly to the perf board. Sockets and LEDs can be posi- 
tioned on the board and held in place temporarily with tape. All con- 
nections can then be wire-wrapped. In the case of the prototype, the 
connections to the keyboard were soldered in order to provide reliable 
connections since they were not designed as wire-wrap leads. Wire- 
wrap terminal posts were used for common connections. 

Additionally, on the prototype two sockets were provided for con- 
venience when attaching the ribbon cable connector to the Games 
Board. They are not indispensable, but their use is strongly suggested 
in order to be able to conveniently plug and unplug cables. (They ap- 
pear in the top left corner of the photograph in Figure 1.14.) A 14-pin 
socket and a 16-pin socket are used for this purpose. Wire-wrap ter- 
minal posts can be used instead of these sockets to attach the ribbon 
cable directly to the perf board. The other end of the ribbon cable is 
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Fig. 1.14: Games Board Detail 


simply attached to the edge connectors of the SYM. When connecting 
the ribbon cable at either end, always be very careful to connect it to 
the appropriate pins (do not connect it upside down). The Games 
Board derives its power from the SYM through the ribbon cable con- 
nection. Connecting the cable in reverse will definitely have adverse 
effects. 

The speaker may be connected to any one of the output drivers 
PB4, PB5, PB6, or PB7 of VIA #3. Each of these output ports is 
equipped with a transistor buffer. A 110-ohm current-limiting resistor 
is inserted in series with the speaker. 


THE KEYBOARD INPUT ROUTINE 


This routine, called ‘‘GETKEY,?’’ is a utility routine which will scan 
the keyboard and identify the key that was pressed. The correspond- 
ing code will be contained in the accumulator. It has provisions for 
bounce, repeat, and rollover. 

Keyboard bounce is eliminated by implementing a 50 ms delay upon 
detection of key closure. 

The repeat problem is solved by waiting for the key currently 
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pressed to be released before a new value is accepted. This cor- 
responds to the case in which a key is pressed for an extended period 
of time. Upon entering the GETKEY routine, a key might already be 
depressed. It will be ignored until the program detects that a key is no 
longer pressed. The program will then wait for the next key closure. If 
the processing program using the GETKEY routine performs long 
computations, there is a possibility that the user may push a new key 
on the keyboard before GETKEY is called again. This key closure will 
be ignored by GETKEY, and the user will have to press the key again. 
Most of the programs described in this book have audible prompts 
in the form of a tone which is generated every time the player should 
respond. Note that when a tone is being generated or during a delay 
loop in a program, pressing a key will have absolutely no effect. 


(AC03) (ACO1) 
DDR 3A PORT 3A 


(INPUT) 


(OUTPUT) 


74154 


4TO 16 
DECODER 


15 


DDR 3B 
(ACO2) 





VIA #3 


Fig. 1.15: VIA Connection to Keyboard Decoder 
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. KEY PRESSED? 
NO 


KEY COUNTER = 15 
SELECT KEY 






DECREMENT 
KEY COUNTER 






DECREMENT COUNT 
SET DELAY COUNT 


YES 


Fig. 1.16: GETKEY Flowchart 
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The hardware configuration for the GETKEY routine is shown in 
Figure 1.9. The corresponding input/output chip on the SYM is 
shown in Figure 1.15. VIA #3 of the SYM board is used to com- 
municate with the keyboard. Port B of the VIA is configured for out- 
put and lines 0 through 3 are gated to the 74154 (4-to-16 decoder), 
connected to the keyboard itself. The GETKEY routine will output 
the hexadecimal numbers ‘‘0’’ through ‘‘F,’’ in sequence, to the 
74154. This will result in the grounding of the corresponding output 
line of the 74154. If a key is pressed, bit 7 of VIA #3 of Port A will be 
grounded. The program logic is, therefore, quite simple, and the cor- 
responding flowchart is shown in Figure 1.16. 

The program is shown in Figure 1.17. Let us examine it. The 
GETKEY routine can be relocated, i.e., it may be put anywhere in the 
memory. In order to conserve space, it has been located at memory 
locations 100 to 12E. It is important to remember that this 1s the low 
stack memory area. Any user programs which might require a full 
stack would overwrite this routine and thus destroy it. To prevent this 
possibility, it could be located elsewhere. For all of the programs that 
will be developed in this book, however, this placement is adequate. 
The first four instructions of the routine condition the data direction 
registers of VIA #3. The data direction register for Port A is set for in- 
put (all zeroes), while the data direction register for Port B is set for 
output (all ones). This is illustrated in Figure 1.15. 


LDA #0 
STA DDR3A 
LDA #$FF 
STA DDR3B 


Two instructions are required to test bit 7 of Port 3A, which in- 
dicates whether a key closure has occurred: 


START BIT PORT3A 
BPL START 


The key counter is initially set to the value 15, and will be decremented 


until a key closure is encountered. Index register X is used to contain 
this value, as it can readily be decremented with the DEX instruction: 


RSTART LDX #15 


This value (15) is then output to the 74154 and results in the selection 
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01023 
0105: 
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O10F 3 
01113 
01143 
01173 
01193 
O11A3 
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SYMBOL TABLE: 


EDRIA 


PORT3R 
NXTKEY 


LF2 
DONE 
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3’GETKEY’ KEYBOARE INFUT ROUTINE. 

sREADS AND DEBOQUNCES KEYBOARD, RETURNS WITH KEY NUMBER 
¥IN ACCUMULATOR IF KEY DOWN. 

POFERATION? SENDS NUMBERS O-F TO 74154 (4 TO 164 

sLINE DECODER)» WHICH GROUNDS ONE SIDE OF KEYSWITCHES 
sONE AT A TIME. IF A KEY IS DOWN» FAZ OF VIA #3 WILL BE 
GROUNDER» AND THE CURRENT VALUE APPLIED TO THE 74154 W 
sRKE THE KEY NUMBER. WHEN THE PROGRAM DETECTS A KEY CLOS 
*CHECKS FOR KEY CLOSURE FOR SO MS. TO ELIMINATE BOUNCE. 
PNOTE’3 ITF NO KEY IS PRESSED: GETKEY WILt. WAIT. : 


°=$100 sNOTE? GETKEY IS IN LOW STACK 
BIRZSA =$ACOZ DATA DIRECTION REG A FOR VIA #3 
DDNK3SRE =¢ACO2 sDATA DIRECTION REG B FOR VIA #3 
PORTSA =$ACO1 sVIAt3 FORT A IN/OUT REGS 
FORTSB =%ACOO +VIA&S FORT BH IN/OUT REGS 
? 
LIA #0 
AC STA EDRIA +SET KEY STROBE FORT FOR INPUT 
LBA #$FF 
AC STA DORSE SET KEY@ FORT FOR OUTFUT 
AC START EIT PORTSA sSEE IF KEY IS STILt. BLOWN FROM 
sLAST KEY CLOSURE’ KEYSTOBE IN ’N‘ 
sSTATUS BIT. 
EPL. START 3IF YES» WAIT FOR KEY RELEASE 
RSTART LDX #15 SET KEY# COUNTER TO 15 
AC NXTKEY STX PORTSR OUTPUT KEY # TO 74154 
AC BIT PORT3SA 3SEE IF KEY TOWNS STROBE IN ‘N’ 
BFL BOUNCE *>IF YESr GO DEROUNCE 
DEX *DECREMENT KEY # 
BFL NXTKEY 7NOr TO NEXT KEY 
BMI RSTART sSTART OVER. 
BOUNCE TXA 3SAVE KEY NUMBER IN A 
LOY #$12 SOUTER LOOP CNT LOA FOR 
sDELAY OF SO MS. 
LF1 LDX *@$FF r,INNER 11 US. LOOP 
AC LF2 BIT FORTSA rSEE IF KEY STILL [OWN 
EMI RSTART IF NOT* KEY NOT VALID, RESTART 
DEX 
RNE LP2 s+THIS LOOF USES 2115%*5 US 
DEY 
BNE LF 1 sOUTER LOOP’ TOTAL IS SO MS. 
RTS 7DONES KEY# IN A. 
ACTOS DERIE ACO2 FORTSA ACOL 
ATOO START O1L0A RSTART 0O10F 
0111 BOUNCE O11E LP i 0121 


0123 


Fig. 1.17: GETKEY Program 


of line 17 connected to key 15 (‘‘F’’). The BIT instruction above is 
used to test the condition of bit 7 of Port 3A to determine whether this 
key has been pressed. 


NXTKEY 


STX PORT3B 
BIT PORT3A 
BPL BOUNCE 


If the key were closed, a branch would occur to ‘SBOUNCE,”’ and a 
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delay would be implemented to debounce it; otherwise, the counter is 
decremented, then tested for underflow. As long as the counter does 
not become negative, a branch back occurs to location NXTKEY. 
This loop is repeated until a key is found to be depressed or the 
counter becomes negative. In that case, the routine loops back to loca- 
tion RSTART, restarting the process: 


DEX 
BPL NXTKEY 
BMI RSTART 


Note that this will result in the detection of the highest key pressed 
in the case in which several keys are pressed simultaneously. In other 
words, if keys ‘‘F’’ and ‘‘3’’ were pressed simultaneously, key ‘‘F’’ 
would be identified as depressed, while key ‘‘3’’ would be ignored. 
Avoiding this problem is called mul/tiple-key rollover protection and 
will be suggested as an exercise: 


Exercise 1-1: Jn order to avoid the multiple-key rollover problem, 
modify the GETKEY routine so that all 15 key closures are monitored. 
If more than one key is pressed, the key closure is to be ignored until 
only one key closure is sensed. 


Once the key closure has been identified, the corresponding key 
number is saved in the accumulator. A delay loop is then implemented 
in order to provide a 50 ms debouncing time. During this loop, the key 
closure is constantly monitored. If the key is released, the routine is 
restarted. The delay itself is implemented using a standard two-level, 
nested loop technique. 


BOUNCE TXA 
LDY #$12 
LP1 LDX #$FF 
LP2 BIT PORT3A 
BMI RSTART 
DEX 
BNE LP2 
DEY 
BNE LP!1 


Exercise 1-2: The value used for the outer loop counter (‘‘$12,’’ or 12 
hexadecimal) may not be quite accurate. Compute the exact duration 
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of the delay implemented by the instructions above, using the tables 
showing the duration of each instruction in the Appendix. 


SUMMARY 


Executing the games programs requires a simple Games Board which 
provides the basic input/output facilities. The required hardware and 
software interface has been described in this chapter. Photographs of 
the assembled board which evolved from the prototype are shown in 
Figures 1.18 and 1.19. 





Fig. 1.18: “Production'’ Games Board 





Fig. 1.19: Removing the Cover 
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2. Generating Square Waves 
(Music Player) 


INTRODUCTION 


This program will teach you how to synthesize frequencies by 
generating square waves. It will use a table-driven algorithm to generate 
tones and play music. It will make systematic use of indexed addressing 
techniques. 


THE RULES 


This game allows music to be played directly on the keyboard of a 
computer. In addition, the program will simultaneously record the 
notes that are played, and then automatically play them back upon re- 
quest. Keys ‘‘0’’ through ‘‘C’’ on the keyboard are used to play the 
musical notes. (See Figure 2.1.) Key ‘‘D’’ is used to specify a rest. Key 
‘*R’’ is used to play back the musical sequence stored in the memory. 
Finally, key ‘‘F’’ is used to clear the memory, 1.e., to start a new 
game. The following paragraph will describe the usual sequence of the 
game. 


A B Cc D 
(A) (B) (C) (REST) 
1 2 3 E 
(A) (B) (C) (PBK) 
4 5 6 F 
(D) (E) (F) (RST) 
7 8 9 0 
(Ff) (G) (G#) (G) 


Fig. 2.1: Playing Music on the Keyboard 


ae 
NUMBER NUMBER 













G 






nnmmoenonow7vrp oOo @ 
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9th Symphony: 

Bea 6 98 8 a A a he dh 
BGG co Bi 6 a ha i a a a ae 
5—3—4—6—5—3—4—6—5—4—3—4—D 


Clementine: 

3— 3—3—D—-2—D— 5— 5—_ 5—_ D—_ 3—_ D— 3—_ 5—_ 8—_ D—_ D — 
8—6—5— 4—D—_D—D— 4—5—_ 6—_ D— 6— D— 5—4—_5—D~— 
$035 = 4-020 9= 3-4-5 


Frere Jacques: 
3—4—5--~3—3—4—5—3—5—6— 8—D— 5— 6— 8—_ D— 8 — 
A—8—6—5—D—3—D—8—A—8—6—5—D—3—D—3— D— 
2—D—3—D—D—D—3—D—2--D---3 


Jingle Bells: 
5 5=5—_D—5—5— 5—D—5 —8 —3— 45 —D—D—D—6— 
6—6—6—6—5— 5— 5 — 8 —_ 8—_ 6— 4—3 


London Bridge: 
8 _A—8—6—5—6— 8—_D— 45 6 D—5— 6— 8— D— 8 — 
A—8—6—5—6-—8—D—4—D—8—D—5-—3 


Mary Had a Little Lamb: 
GA 5 i a a = 
4—3—4—5—5—5—5—_ 44543 


Row Row Row Your Boat: 
3—-D—3—D— 3— 4—_5—_ D— 5— 4— 5—6—8—D—D—D—C—- 
C—8—8— 5—_ 5— 3— 3— 8—_ 6— 5—_ 4— 3 


Silent Night: 
8—_D—D—A—8—D— 5—_ D— D— D— 8—_ D—D—A~— 8— D— 5— 
=D = DS FS DD Bp Se pp aC = 
D—8—_D—D—C—D—8— 5—8—_D—6— D— 4— D— 3 


Twinkle Twinkle Little Star: 
3—3—8—8—A—A—8—D—6— 6— 5— 5 — 4— 4— 3— D— 8 — 
8—6— 6— 5— 5-—- 4~ D—-3— 3— 8 8-_A—A~—8~-—D— 6— 6— 
§—5—4—4—3 





Fig. 2.2: Simple Tunes for Computer Music 
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A TYPICAL GAME 


Press key ‘‘F’’ to start a new game. A three-note warble will be 
heard, confirming that the internal memory has been erased. Play the 
tune on keys ‘‘0’’ through ‘‘D’’ (using the notes and the rest features). 
Up to 254 notes may be played and stored in the memory. At any 
point, the playback key (‘‘E’’) may be pressed and the notes and rests 
that were just played on the keyboard (and simultaneously stored in 
the memory) will be reproduced. The musical sequence may be played 
as many times as desired by simply pressing key ‘‘E.’’ Examples of 
simple tunes or musical sequences that can be played on the computer 
are shown in Figure 2.2. 


THE CONNECTIONS 


This game uses the keyboard plus the speaker. The speaker is con- 
nected in series to one of the buffered output lines of PORT B of VIA 
#3, via a 110-ohm current limiting resistor. PB4, PB5, PB6, or PB7 of 
VIA #3 are used, as they are driven by a transistor buffer on the SYM. 
For higher quality music, it is recommended that the speaker be placed 
in a small box-type enclosure. The value of the resistor may also be 
adjusted for louder volume (without going below 50-ohm) to limit the 
current in the transistor. 


THE ALGORITHM 


A tone (note) is simply generated by sending a square wave of the 
appropriate frequency to the speaker, i.e., by turning it on and off at 
the required frequency. This is illustrated in Figure 2.3. The length of 
time during which the speaker is on or off is known as the half-period. 
In this program, the frequency range of 195 to 523 Hertz is provided. 
If N is the frequency, the period T is the inverse of the frequency, or: 


T = 1I/N 
Therefore, the half-periods will range from 1/(2 x 195) = .002564 to 


0.60 oe: 

ratetetete 
OOOO 
wererere. 
erererate 
1@¢ 0086 
O89 eo: 
o%e*ete*e" 
weteterete 


a 
T/2 


SQUARE WAVE SPEAKER 





Fig. 2.3: Generating a Tone 
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1/(2 * 523) = .000956 seconds. A classic loop delay will be used to im- 
plement the required frequency. 

Actual computations for the various program parameters will be 
presented below. 


THE PROGRAM 


The program is located at memory addresses 200 through 2DD, and 
the recorded musical sequence or tune is stored starting at memory 
location 300. Up to 254 notes may be recorded in 127 bytes. 


Data Structures 


Three tables are used in this program. They are shown in Figure 2.4. 
The recorded tune is stored in a table starting at address 300. The note 
constants, used to establish the frequency at which the speaker will be 
toggled, are stored in a 16-byte table located at memory address 2C4. 
The note durations, i.e., the number of half-cycles required to imple- 
ment a uniform note duration of approximately .21 second, are stored 
in a 16-byte table starting at memory address 2D1. Within the tune 
table, two ‘‘nibble’’-pointers are used: PILEN during input and PTR 
during output. (Each 8-bit byte in this table contains two notes.) In 
order to obtain the actual table entry from the nibble-pointer, the 
pointer is simply shifted one bit position to the right. The remaining 
value becomes a byte-pointer, while the bit shifted into the carry flag 
specifies the left or the right half of the byte. The two tables called 
CONSTANTS and NOTE DURATIONS are simply reference tables 
used to determine the half-frequency of a note and the number of 
times the speaker should be triggered once a note has been identified 
or specified. Both of these tables are accessed indirectly using the X 
register. 


Some Music Theory 


A brief survey of general music conventions is in order before 
describing the actual program. The frequencies used to generate the 
desired notes are derived from the equally tempered scale, in which the 
frequencies of succeeding notes are in the ratio: 


bens 2 


The frequencies for the middle C octave are given in Figure 2.5. 
When computing the corresponding frequencies of the higher or the 
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GETKEY 
ROUTINE 


NOTE 
CONSTANTS 


MUSIC 
PROGRAM 


| NOTE 
RECORDED DURATIONS 


TUNE 





2DD 


(TABEG) 








0 


ahie > | ie fal | 


ACO2 DDRB 


Fig. 2.4: Memory Map 


lower octave, they are simply obtained by multiplying by two, or 
dividing by two, respectively. 


Generating the Tone 


The half-period delay for the square wave sent to the speaker is im- 
plemented using a program loop with a basic 10 us cycle time. In the 
program, the ‘‘loop index,’’ or iteration counter is used to count the 
number of 10 ws cycles executed. The loop will result in a total delay 
of: | 


(loop index) x 10 — 1 microseconds 


GENERATING SQUARE WAVES 





Fig. 2.5: Frequencies for the Middle C Octave 


On the last iteration of the loop (when the loop index is 
decremented to zero), the branch instruction at the end will fail. This 
branch instruction will execute faster, so that one microsecond 
(assuming a 1 MHz clock) must be subtracted from the total delay 
duration. The tone generation routine is shown below: 


TONE STA FREQ 
LDA #$FF 
STA DDRB 
LDA #$00 
LDX DUR 

FL2 LDY FREQ 

FLI DEY 

| CLC INNER 

BCC .4+2 LOOP 
BNE FLI 
EOR #$FF 
STA OPB 
DEX 
BNE FL2 
RTS 


OUTER 
LOOP 


Note the ‘‘classic’’ nested loop design. Every time it is entered, the 
outer loop adds an additional thirteen microseconds delay: 14 
microseconds for the extra instructions (LDY, EOR, STA, DEX, and 
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BNE), minus one microsecond for responding to the unsuccessful in- 
ner loop branch. The total outer loop delay introduced is therefore: 


(loop index) x 10 + 13 microseconds 
Remember that one pass through the outer loop represents only a half- 


period for the note. 


Computing the Note Constants 
Let ‘‘ID’’ be the inner loop delay and ‘‘OD’’ be the outer loop addi- 


tional delay. It has been established in the previous paragraph that the 
half-period is T/2 = (loop index) x 10 + 13 or, 


T/2 = (loop index) x ID + OD 


The note constant stored in the table is the value of the ‘‘index’’ re- 
quired by the program. It is easily derived from the equation that: 


note constant = loop index = (T — 2 x OD)/2 x ID 


The period may be expressed in function of the frequency as T = 1/N 
or, In microseconds: 


T = 10°/N 
Finally, the above equation becomes: 


note constant = (10°/N — 2 x OD)/2 x ID 


For example, let us compute the note constant corresponding to the 
frequency for middle C. The frequency corresponding to middle C is 
shown in Figure 2.5. It is 261.62 Hertz. The ‘‘OD”’’ delay has been 
shown above to be 13 microseconds, while ‘‘ID’’ was set to 10 
microseconds. The note constant equation becomes: 


note constant = (10°/N — 2 x 13)/2 x 10 
1000000/261.62 - 26 
20 
190 (or BE in hexadecimal) 


It can be verified that this corresponds to the fourth entry in the table 
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MIDDLE C ¢ F# 
G 





Fig. 2.6: Note Constants 


at address NOTAB (see Figure 2.9 at the end of the listing, at address 
02C4). The note constants are shown in Figure 2.6. 


Exercise 2-1: Using the table in Figure 2.6, compute the corresponding 
frequency, and check to see if the constants have been chosen correctly. 


Computing the Note Durations 


The DURTAB table stores the note durations expressed in numbers 
equivalent to the number of half-cycles for each note. These durations 
have been computed to implement a uniform duration of approximately 
.2175 second per note. If D is the duration and T is the period, the 
following equation holds: 


D X T = .2175 


where D is expressed as a number of periods. Since, in practice, half- 
periods are used, the required number D’ of half-periods is: 


D’ = 2D =2 x .2175 xX N 
For example, in the case of the middle C: 
D = 2 X .2175 X 261.62 = 133.8 ~114 decimal (or 72 hexadecimal) 
Exercise 2-2: Compute the note durations using the equation above, 
and the frequency table in Figure 2.5 (which needs to be expanded). 


Verify that they match the numbers in table DURTAB at address 2D1. 
(See Figure 2.9) 
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Program Implementation 


The program has been structured in two logical parts. The cor- 
responding flowchart is shown in Figure 2.7. The first part of the pro- 
gram is responsible for collecting the notes and begins at label 


START 


TEMP = PTR SHIFTED 
RT. ONE BIT 


POSITION 









GET KEY NUMBER 


KEY NUMBER 
= 15? 
3 BEEPS FOR NO 
RESTART 
NO KEY NUMBER 
= 14? PLAY NOTE 
NUMBER 
YES 
C1» nee 
PTR =0 


NO YES 
CARRY = 0? 











NOTE NUMBER = 
NOT “E” TABLE 
(TEMP) SHIFTED 

‘RIGHT 4 PLACES 


NOTE NUMBER = 
NOTE TABLE (TEMP) 










BETWEEN—NOTE 
DELAY 


R= PTR+ 1 
CARRY = LOW 


PTR = 
ORDER BIT OF PTR 


Fig. 2.7: Music Flowchart 
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NOTE NUMBER 
™ KEY NUMBER 


PLAY NOTE 
NUMBER VES 
NO 
3 BEEPS FOR 
WARNING 


SHIFT PILEN 


LOW ORDER BiT 
INTO CARRY 





TEMP 2 PILEN 
SHIFTED RIGHT ONE 


POSITION 





YES NO 
CARRY = 0? 










NOTE TABLE (TEMP) 
= KEY NUMBER 


SHIFT KEY NUMBER 
LEFT 4 PLACES 


NOTE TABLE (TEMP) 
= [NOTE TABLE (TEMP) 
OR KEY NUMBER] 


PILEN == PILEN + 1 





Fig. 2.7: Music Flowchart (Continued) 
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‘“‘“NUMKEY.”’ (The program is shown in Figure 2.9). The second part 
begins at the label ‘‘PLAYEM”’ and its function is to play the stored 
notes. Both parts of the program use the PLAYNOTE subroutine 
which looks up the note and duration constants, and plays the note. 
This routine begins at the label ‘‘PLAYIT,’’ and its flowchart is 


shown in Figure 2.8. 
PLAY NOTE 
NUMBER 


USE NOTE NUMBER 
TO LOOK UP 
DURATION 













USE NOTE NUMBER 
TO LOOK UP NOTE 
CONSTANT 














LOOP FROM 0 TO 
NOTE CONSTANT 
TO WASTE TIME 





DURATION = 
DURATION —} 


DURATION 
= 0? 
YES 


Fig. 2.8: PLAYIT Flowchart 
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5 MUSIC FLAYER FROGRAM 
; USES 16 —- KEY KEYBOARD AND BUFFERED SFEAKER 


sPROGRAM PLAYS STORED 
*THERE ARE TWO MODES OF OPERATION: 
sINPUT MODE IS THE BEFAULT» 
sPRESSED (0-D) ARE STORED FOR REPLAY, 


,OCCURS» THE USER IS WARNED WITH A THREE-TONE WARNING. 


NOTES. 

INPUT AND PLAY. 
NON--COMMANT KEYS 
IF AN OVERFLOW 


MUSICAL. 


ANE ALL 


S$THE SAME WARBLING TONE IS ALSO USED TO SIGNAL A 
$RESTART OF THE FROGRAM. 


’ 
GETKEY =$100 


PILEN =$00 sLENGTH OF NOTE LIST 

TEMP =$01 >TEMPORARY STORAGE 

PTR =$02 ICURRENT LOCATION IN LEST 

FREQ =$03 # TEMPORARY STORAGE FOR FREQUENCY 
DUR =$04 S$TEMP STORAGE FOR DURATION 

TABEG =#300 *TABLE TO STORE MUSIC 

OFB =#AC00 rVIA OUTFUT PORT B 

DDRE “$ACO2 #VIA PORT B&B DIRECTION REGISTER 

. = $200 *ORIGIN 


, 
3COMMAND LINE INTERFRETER 


$F 


, 
5 
7 
, 
$ 


AS INFUT MEANS RESET 
$E MEANS PLAY CURRENTLY 
ANYTHING ELSE [I$ 


FOINTERSs START OVER. 
STORED NOTES 


STORED FOR REFLAY. 


0200: Ay? 00 TART LDA #0 CLEAR NOTE LIST LENGTH 
02023 85 00 STA PILEN 
0204: 18 CLC FCLEAR NIBBLE MARKER 
0205$ 20 00 01 NXKEY JSR GETKEY 
02083 C9 OF CMP #15 71S KEY #157? 
O20A3 DO OS BNE NXTST *NOy NO NEXT TEST 
020C3 20 87 02 JSR BEEPS *TELL USER OF CLEARING 
O20F: 90 EF BCC START CLEAR POINTERS ANI! START OVER 
O2113 C9 OF NXTST CMP #14 71S KEY #147 
02133 DO 06 BNE NUMKEY *7NOy KEY IS NOTE NUMBER 
02153 20 48 02 JSR PLAYEM ‘FLAY NOTES 
0218: 18 CLC . 
02193 90 EA BCC NXKEY *#GET NEXT COMMAND 

; 

#ROUTINE TO LOAD NOTE LIST WITH NOTES 

td 
O21Bt 85 01 NUMKEY STA TEMP SAVE KEY: FREE A 
O210% 20 70 02 JSR PLAYIT PLAY NOTE 
0220! AS 00 LDA PILEN *+GET LIST LENGTH 
0222: C9? FF CMP @$FF 3 OVERFLOW? 
0224: DO 05 BNE OK NO» ADD NOTE TO LIST 
02263 20 B87 02 JSR BEEPS sYESr WARN USER 
0229: 90 DA BCC NXKEY #RETURN TO INFUT MODE 
O22B% 4A OK LSR A SHIFT tOW BIT INTO NIRBLE POINTER 
02203 AB TAY USE SHIFTED NIBBLE POINTER AS 

sRYTE INDEX 
022D3 AS 02 LDA TEMP *RESTORE KEY# 
O22F3 BO 09 BCS FINBYT ;IF BYTE ALREADY HAS 1 NIBBLEs 
*FINISH IT AND STORE 
0231: 29 OF AND #Z00001111 ¢1ST NIBBLE» MASK HIGH NIRELE 
0233: 99 00 03 STA TABEG*Y SAVE UNFINISHED 1/2 RYTE 
02363 E4 00 INC PILEN yPOINT TO NEXT NIBBLE 
02383 90 CB BCC NXKEY 9GET NEXT KEYSTROKE 
O23A% OA FINBYT ASL A *SHIFT NIBBLE 2 TO HIGH ORDER 
02383 OA ASL A 
023C: 0A ASL A 
O23D3 Of ASL A 
O23E$ 19 00 03 ORA TABEGrY JOIN 2 NIBBLES AS BYTE 
0241! 99 00 03 STA TABEGrY §..-ANI! STORE. 
02443 E& 00 INC PILEN ¢POINT TO NEXT NIBBLE IN NEXT BYTE 
9246: 90 BD BCC NXKEY sRETURN 
Fig. 2.9: Music Program 
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02483 
024A; 
024C3 
O24E3 
O24F 3 


02503 
023535 
0255; 
02573 
02593 
O25B: 
025C% 
O25Di 
O25E; 
O25F 3 
0262% 
02643 
02673 
02693 
O26B; 
O26D5 
O26F 3 


0270: 
02722 
02741 
0276! 
02793 
O27A1 
0278! 
O27E! 
0280! 
02831 
0286 


0287! 
0289! 
O26R! 
o268n! 
0290! 
0292! 
02953 
02973 
029A 
O29B! 


029C$ 
O29E 3 
029F $ 
O2A1t 
O2A22 
02A4; 
O2AS3 
O2A7% 
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DO 
60 


FF 
00 
FA 
FS 


03 


02 
02 


02 
02 


$ 
§ ROUTINE TO PLAY NOTES 
§ 


PLAYEM LDX #0 *7CLEAR POINTER 


STX PTR 
LDA PTR FLOAD ACUM W/CURRENT PTR VAL 

LOOP LSR A ISHIFT NIBBLE INDICATOR INTO CARRY 
TAX sUSE SHIFTED NIBBLE POINTER 


sAS BYTE POINTER 
LDA TABEG?X *LOAD NOTE TO PLAY 
BCS ENDBYT ‘LOW NIBBLE USED» GET HIGH 
AND #£00001111 §MASK OUT HIGH BITS 
BCC FINISH SPLAY NOTE 
ENDBYT ANI #411110000 STHROW AWAY LOW NIBBLE 


LSR A §SHIFT INTO LOW 
LER A 
LSR A 
LSR A 

FINISH JSR PLAYIT SCALCULATE CONSTANTS & PLAY 
LOX $$20 - *BETWEEN-NOTE NELAY 
JSR DELAY 
INC FTR ‘ONE NIBBLE USED 
LDA PTR 
CMF PILEN SEND OF LIST? 
BCC LOOP §NOr GET NEXT NOTE 
RTS > DONE 


$ 
PROUTINE TO DO TABLE LOOK UPs SEPARATE REST 
5 


FLAYIT CMP #13 yRESTT 
BNE SOUND §NO. 
LOX #$54 SNELAY=NOTE LENGTH=. 21SEC 
JSR DELAY 
RTS 

SOUND TAX yUSE KEY# AS INDEX... 
LDA BURTAB?X 9e¢eeT0 FIND DURATION, 
STA DUR #STORE DURATION FOR USE 
LDA NOTABrX *LOAN NOTE VALUE 
JSR TONE 
RTS 


a 


, 


sROUTINE TO MAKE 3 TONE SIGNAL 


5 

BEEFS LDA #$FF 
STA TUR 
LDA #$4B *CODE FOR E2 
JSR TONE 61ST NOTE 
LEA #$38 *CODE FOR D2 
JSR TONE 
LDA #$48 
JSR TONE 
CLC 
RTS 


*DURATION FOR BEEPS 


a 


g 


*VARIABLE-LENGTH DELAY 


? 
DELAY LDY #¢FF 
DLY NOP 
BNE «+2 
NEY 
BNE DLY 710 US LOOF 
DEX 
BNE DELAY sLOOP TIME = 2556xKCX] 
RTS 
D 
sROUTINE TO MAKE TONE! # OF 1/2 CYCLES I8 IN ’DUR’> 
#AND 1/2 CYCLE TIME IS IN A. LOOP TIME=20*0£A14+26 US 


Fig. 2.9: Music Program (Continued) 


rSINCE TWO 
yONE CYCLE 
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RUNS THROUGH THE OUTER L.GOF MAKES 
OF THE TONE. 


Ld 
O2ZA8s B85 O03 TONE STA FREQ *FRER IS TEMP FOR # OF CYCLES 
O2ZAA: AD FF LEA #¢FF 3SET UF DATA TIRECTION REG 
O2ACs B80 02 AC STA DORE 
O2AF? AY OO LTA #$00 7A IS SENT TO FORTs START HI 
O2B13 Ab’ O4 LOX BUR 
O2B3? A4 O03 FL2 LNY FREQ 
O2R5% 88 FL. DEY 
O286; 18 CLC 
O2B73 90 00 BCC .t2 
O2B9: TI0 FA BNE FL1 yINNERs 10 US LOOP 
O2RRi 49 FF EOR #$FF SsCOMPLEMENT I/0 FORT 
O2BIt an 00 AC STA OFB y¥eeeANT SET IT 
020023 CA NEX 
O2C1; LO FO BNE FL2 VOUTER LOOF 
0203: 60 RTS 
ITARBLE OF NOTE CONSTANTS 
s>CONTAINS? 
rCOCTAVE BELOW MIDDLE Cl] ¢ GrArkB 
PCOCTAVE OF MIDDLE CI & CrlteErFsF#sGrGtrArk 
sCOCTAVE ABOVE MIBDOLE CI ¢: C 
y 
O2C4: FE NOTAB RYT $FEs$E22$CP SBE» $A 7 $9G% SHE 


O2CS: E2 
0206s CP 
O2C7: BE 
O2C8: A? 
O2L9s 96 
O2CAs BE 
O2CK? 84 
O2CC! 7E 
O2CDs 77 
O2CE: 70 
O2CF: 64 
O20; SE 


»BYT $862%7E 997797098647 $5E 


*TARLE OF NOTE DURATIONS IN # OF 172 CYCLES 
3SET FOR A NOTE LENGTH OF ABOUT .21 SEC, 


O2n1: SS 
O2023 60 
O2N3: 6B 
O24! 72 
o2ns: 80 
O26? GF 
O2N7% 94 
O2n8? Al 
O29% AA 
O2DAt BS 
O20R: BF 
O2nCcs D7 
O2Im: E4 


' SYMBOL TABLE? 
GETKEY 
PTR 
TABEG 
START 
NUMKEY 
PLAYEM 
FINISH 
REEPS 
TONE 
NOTAB 


vA 


y 
NURTAR RYT $557$602 $682 $722%80% SBF 1 $94 


eHYT $ALl*tAAs SRS ry SEF ep S07 2 $E4 


0100 FILEN 09000 TEMP 0001 
0002 FREQ 0003 DUR 0004 
0300 OFRB ACOO DORE Aco? 
0200 NXKEY 0205 NXTST O211 
O21B OK 022K FINHYT O23A 
0248 LOOF O24E ENTRY T Q259 
O25F PLAYIT 0270 SOUNT O27A 
0287 DELAY 029C LiL Y O29E 
O2AB FL2 0283 Fit O2BS 
O2C4 DURTAR O2n1 


Fig. 2.9: Music Program (Continued) 
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The main routines are called, respectively, NXKEY, NUMKEY, 
and BEEP3 for the note-collecting program, and PLAYEM and 
DELAY for the note-playing program. Finally, common utility 
routines are TONE and PLAYIT. 

Let us examine these routines in greater detail. The program resides 
at memory addresses 200 and up. Note that the program, like most 
others in this book, assumes the availability of the GETKEY routine 
described in Chapter 1. 

The operation of the NXKEY routine is straightforward. The next 
key closure is obtained by calling the GETKEY routine: 


START LDA #0 
STA PILEN Initialize length of list to 0 
CLC 

NXKEY JSR GETKEY 


The value read is then compared to the constants ‘‘15’’ and ‘‘14’ for 
special action. If no match is found, the constant is stored in the note 
list using the NUMKEY routine. 


CMP #15 

BNE NXTST 

JSR BEEP3 

BCC START 
NXTST CMP #14 

BNE NUMKEY 

JSR PLAYEM 

CLC 

BCC NXKEY 


Exercise 2-3: Why are the last two instructions in this routine used in- 
stead of an unconditional jump? What are the advantages and disad- 
vantages of this technique? 


Every time key number 15 is pressed, a special three-tone routine 
called BEEP3 is played. The BEEP3 routine is shown at address 0287. 
It plays three notes in rapid succession to indicate to the user that the 
notes in the memory have been erased. The erasure is performed by 
resetting the list length PILEN to zero. The corresponding routine ap- 
pears below: 
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BEEP3 LDA #$FF Beep duration constant 
STA DUR 
LDA #$4B Code for E2 
JSR TONE Ist note 
LDA #$38 Code for D2 
JSR TONE 2nd note 
LDA #$4B Code for E2 
JSR TONE 3rd note 
CLC 
RTS 


Its operation is straightforward. 

The NUMKEY routine will save the code corresponding to the note 
in the memory. As in the case of a Teletype program, the computer 
will echo the character which has been pressed in the form of an audi- 
ble sound. In other words, every time a key has been pressed, the pro- 
gram will play the corresponding note. This is performed by the next 
two instructions: 


NUMKEY STA TEMP 
JSR PLAYIT 


The list length is then checked for overflow. If an overflow situation is 
encountered, the player is advised through the use of the three-tone se- 
quence of BEEP3: 


LDA PILEN Get length of list 
CMP #$FF Overflow? 

BNE OK No: add note to list 
JSR BEEP3 Yes: warn player 
BCC NXKEY Read next key 


Otherwise, the new nibble (4 bits) corresponding to the note identifica- 
tion number is shifted into the list: 


OK LSRA Shift low bit into 
nibbie pointer 

TAY Use as byte index 
LDA TEMP Restore key # 


Note that the nibble-pointer is divided by two and becomes a byte in- 
dex. It is then stored in register Y, which will be used later to perform 
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an indexed access to the appropriate byte location within the table 
(STA TABEG,Y). 

Depending on the value which has been shifted into the carry bit, the 
nibble is stored either in the high end or in the low end of the table’s 
entry. Whenever the nibble must be saved in the high-order position of 
the byte, a 4-bit shift to the left is necessary, which requires four in- 
structions: 


BCS FINBYT Test if byte has a nibble 
AND #%00001111 Mask high nibble 
STA TABEG,Y Save 
INC PILEN Next nibble 
BCC NXKEY 
FINBYT ASLA 
ASLA 
ASLA 
ASL A 


Finally, it can be saved in the appropriate table address, 


ORA TABEG,Y 
STA TABEG,Y 


The pointer is incremented and the next key 1s examined: 


INC PILEN 
BCC NXKEY 


Let us look at this technique with an example. Assume: 


= 9 (length of list) 
TEMP = 6 (key pressed) 


The effect of the instructions is: 


OK LSRA A will contain 4, C will con- 
tain] 
TAY Y=4 
LDA TEMP A = 6 
BCS FINBYT C is 1 and the branch occurs 


GENERATING SQUARE WAVES 


The situation in the list is: 


BYTE 
DISPLACEMENT 





Fig. 2.10: Entering a Note in the List 
Shift ‘‘6’’ into the high-order position of A: 


FINBYT ASLA 
ASL A 
ASLA 
ASL A A = 60 (hex) 


Write A into table: 


ORATABEG,Y A = 6X (where X is the 
previous nibble in the table) 


STA TABEG,Y Restore old nibble with new 
nibble 


The Subroutines 


PLAYEM Subroutine 


The PLAYEM routine is also straightforward. The PTR memory 
location is used as the running nibble-pointer for the note table. As 
before, the contents of the running nibble-pointer are shifted to the 
right and become a byte pointer. The corresponding table entry is then 
loaded using an indexed addressing method: 
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PLAYEM LDX #0 
STX PTR PTR = 0 
LDA PTR 
LOOP LSR A 
TAX 
LDA TABEG,X 
BCS ENDBYT 
AND #%00001111 
BCC FINISH 
ENDBYT AND #% 11110000 
LSRA 
LSRA 
LSRA 
LSRA 


Depending upon the value of the bit which has been shifted into the 
carry, either the high-order nibble or the low-order nibble will be ex- 
tracted and left-justified in the accumulator. The subroutine PLAYIT 
described below is used to obtain the appropriate constants and to 
play the note: 


FINISH JSR PLAY IT Play note 


A delay is then implemented between two consecutive notes, the run- 
ning pointer is incremented, a check occurs for a possible end of list, 
and the loop is reentered: 


LDX #$20 Delay constant 
JSR DELAY Delay between notes 
INC PTR One nibble used 
LDA PTR 
CMP PILEN Check for end of list 
BCC LOOP No: get next note 
RTS Done 

PLAYIT Subroutine 


The PLAYIT subroutine plays the note or implements a rest, as 
specified by the nibble passed to it in the accumulator. This subroutine 
is called ‘‘PLAYNOTE”’ on the program flowchart. It merely looks 
up the appropriate duration for the note from table DURTAB, and 
saves it at address DUR (at memory location 4), It then loads the ap- 
propriate half-period value from the table at address NOTAB into the 
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A register, using indexed addressing, and calls subroutine TONE to 
play it: 


PLAYIT CMP #13 Check for a rest 
BNE SOUND No 
LDX #$54 Delay = .21 sec (note duration) 
JSR DELAY If rest was specified 
RTS 

SOUND TAX Use key # as index 
LDA DURTAB,X To look up duration 
STA DUR 
LDA NOTAB,X 
JSR TONE 
RTS 

TONE Subroutine 


The TONE subroutine implements the appropriate wave form 
generation procedure described above, and toggles the speaker at the 
appropriate frequency to play the specified note. It implements a 
traditional two-level, nested loop delay, and toggles the speaker by 
complementing the output port after each specified delay has elapsed: 


TONE STA FREQ 


A contains the half-cycle time on entry. It is stored in FREQ. The loop 
timing will result in an output wave-length of: 


(20 x A + 26) ps 
Port B is configured as output: 


LDA #$FF 
STA DDRB 


Registers are then initialized. A is set to contain the pattern to be out- 
put. X is the outer loop counter. It is set to the value DUR which 
contains the number of half cycles at the time the subroutine is called: 
LDA #$00 
LDX DUR 
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The inner loop counter Y is then initialized to FREQ, the frequency 
constant: 


FL2 LDY FREQ 
and the inner loop delay is generated as usual: 


FLI1 DEY 
CLC 
BCC .+2 
BNE FL] 10 us inner loop 


Then the output port is toggled by complementing it: 


EOR #$FF 
STA OPB 


and the outer loop is completed: 


DEX 
BNE FL2 
RTS 


The DELAY subroutine is shown in Figure 2.9 at memory location 29C 
and is left as an exercise. 


SUMMARY 


This program uses a simple algorithm to remember and play tunes. 
All data and constants are stored in tables. Timing is implemented by 
nested loops. Indexed addressing techniques are used to store and 
retrieve data. Sound is generated by a square wave. 


EXERCISES 


Exercise 2-4: Change the note constants to implement a different range 
of notes. 

Exercise 2-5: Store a tune in memory in advance. Trigger it by pressing 
key °0.”’ 

Exercise 2-6: Rewrite the program so that it will store the note and 
duration constants in memory when they are entered, and will not 
need to look them up when the tune is played. What are the disadvan- 
tages of this method? 
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3. Pseudo Random Number Generator 
(Translate) 


INTRODUCTION 


This program will use a pseudo random number generator, display 
patterns from tables, measure elapsed time, and generate delays. It will 
check your knowledge of basic input/output techniques before we proceed 
to more complex concepts. 


THE RULES 


This is a game designed for two competing players. Each player tries to 
quickly decipher the computer’s coded numbers. The players are alter- 
nately given a turn to guess. Each player attempts to press the hexa- 
decimal key corresponding to a 4-bit binary number displayed by the 
program. The program keeps track of the total guessing time for each 
player, up to a limit of about 17 seconds. When each player has correctly 
decoded a number, the players’ response times are compared to deter- 
mine who wins the turn. The first player to win ten turns wins the match. 

The program signals each player’s turn by displaying an arrow 
pointing either to the left or to the right. The player on the right will be 
signaled first to initiate the game. The program’s ‘‘prompt’’ is shown 
in Figure 3.1. 

A random period of time will elapse after this prompt, then the bot- 
tom row of LEDs on the Games Board will light up. The left-most 
LED (LED #10) signals to the player to proceed. The four right-most 
LEDs (LEDs 12, 13, 14, and 15) display the coded binary number. 
This is shown in Figure 3.2. In this case, player 1 should clearly press 
key number 5. If the player guesses correctly, the program switches to 
player 2. Otherwise, player 1 will be given another chance until his or 
her turn (17 seconds) is up. It should be noted here that for each 
number presented to the player, the total guessing time is accumulated 
to a maximum of about 17 seconds. When the maximum ts reached, 
the bottom row will go blank and a new number will be displayed. 

The program signals player 2’s turn (the player on the left) by 
displaying a left arrow on the LEDs as shown in Figure 3.3. Once both 
players have had a turn to guess a binary digit, the program will signal 
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-@ -@ -@ 
“OD -@ -O 





Fig. 3.1: Prompt Signals the Right Player to Play 


10 W 12 13 14 15 
uw rv) ee” 
ie BINARY NUMBER 
Fig. 3.2: Bottom Row of LEDs Displays Number to be Guessed 








] 2 3 
4 5 6 
7 8 9 


Fig. 3.3: It is Player 2's Turn (Left Player) 


the winner by lighting up either the left-most or the right-most three 
LEDs of the bottom row. The winner is the player with the shortest 
guessing time. The game is continued until one player wins ten times. 
He or she then wins the match. The computer signals the match win- 
ner by blinking the player’s three LEDs ten times. At the end of the 


match, control is returned to the SYM-1 monitor. 


A TYPICAL GAME 


The right arrow lights up. The following LED pattern appears at the 
bottom: 10, 13, 14, 15. The player on the right (player 1) pushes key 
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‘“*C,’’ and the bottom row of LEDs goes blank, as the answer is incor- 
rect. Because player 1 did not guess correctly and he or she still has 
time left in this turn, a new number is offered to player 1. LEDs 10, 
13, 14, and 15 light up and the player pushes key ‘‘7.’’ He or she wins 
and now the left arrow lights up, indicating that it is player 2’s turn. This 
time the number proposed is 10, 12, 15. The left player pushes key ‘*9.”’ 
At this point, LEDs 10, 11, and 12 light up, indicating that the player 
is the winner for this turn as he/she has used less total time to make a 
correct guess than player 1. 

Let us try again. The right arrow lights up; the number to translate 
appears in LEDs 10, 13, 14, and 15. Player 1 pushes key ‘‘7,’’ and a 
left arrow appears. The next number lights LEDs 10 and 14. Player 2 
pushes key ‘‘2.’’ Again, the left-most three LEDs light up at the bot- 
tom, as player 2 was faster than player 1 at providing the correct 
answer. 


THE ALGORITHM 


The flowchart corresponding to the program is shown in Figure 3.4. 
A first waiting loop is implemented to measure the time that it takes for 
player 1 to guess correctly. Once player | has achieved a correct guess, 
his or her total time is accumulated in a variable called TEMP. It is 
then player 2’s turn, and a similar waiting loop is implemented. Once 
both players have submitted their guesses, their respective guessing 
times are compared. The player with the least amount of time wins, 
and control flows either to the left or to the right, as shown by labels 1 
and 2 on the flowchart in Figure 3.4. A secondary variable called 
PLYR1 or PLYR2 is used to count the number of games won by a 
specific player. This variable is incremented for the player who has 
won and tested against the value 10. If the value 10 has not been 
reached, a new game is started. If the value 10 has been reached, the 
player with this score is declared the winner of the match. 


THE PROGRAM 


The corresponding program uses only one significant data struc- 
ture. It is called NUMTAB and is used to facilitate the display of the 
random binary numbers on the LEDs. Remember that LED #10 must 
always be lit (it is the ‘‘proceed’’ LED). LED #11 must always be off. 
LEDs 12, 13, 14, and 15 are used to display the binary number. 
Remember also that bit position 6 of Port 1B is not used. As a result, 
displaying a ‘‘0’’ will be accomplished by outputting the pattern 
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WINCOUNT 1 = 0 
WINCOUNT 2 = 0 
SHOW THAT IT IS 
PLAYER 1’s TURN 


GET PLAYER I’s 
GUESS WHILE 


TIMING INPUT 





“<a> 


YES 


STORE PLAYER 1's 
TIME IN TEMP 


SHOW THAT IT IS 
PLAYER 2’s TURN 





GET PLAYER 2’s 
GUESS WHILE 
TIMING INPUT 


YES 






















LIGHT LEDs TO 
SHOW PLAYER 1 
WINS ROUND 


INCREMENT PLAYER 
1’s WINCOUNT 


PLAYER 1’s 
WiINCOUNT 
= 10? 


SHOW PLAYER 
i’s WIN 


LIGHT LEDs TO 
SHOW PLAYER 2 
WINS ROUND 









INCREMENT PLAYER 
2’s WINCOUNT 












PLAYER 2's 
WINCOUNT 
= 10? 


SHOW PLAYER 
2’s WIN 


Fig. 3.4: Translate Flowchart 
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**90000010.’’ Outputting a ‘‘1’’ will be accomplished with the pattern 
**10000010.’’ Outputting ‘‘2’’ will be accomplished with the pattern 
**00100010.”’ Outputting ‘°3’’ will be accomplished with the pattern 
**10100010,”’ etc. (See Figure 3.5) 

The complete patterns corresponding to all sixteen possibilities are 
stored in the NUMTAB table of the program. (See Figure 3.6.) Let us 
examine, for example, entry 14 in the NUMTAB (see line 0060 of the 
program). It is ‘‘00111010.’’ The corresponding binary number to be 
displayed is, therefore: ‘‘00111.’’ 


7 6 5 4 3 2 1 0 
pofotr|rfifofrfe} + 1 1 o 


It is ‘1110’ or 14. Remember that bit 6 on this port is always ‘‘0.”’ 


Low Memory Area 


Memory locations 0 to 1D are used to store the temporary variables 
and the NUMTAB table. The functions of the variables are: 


TEMP Storage for random delay-length 

CNTHI,CNTLO _ Time used by a player to make 
his or her move 

CNT1H,CNTIL Time used by player 1 to make 
his or her move (permanent 
storage) 

PLYRI Score for Player 1(number of 
games won so far, uptoa 
maximum of ten) 


PLYR2 Same for player 2 

NUMBER Random number to be guessed 

SCR and following Scratch area used by the 
random number generator 


In the assembler listing, the method used to reserve memory loca- 
tions in this program is different from the method used in the program 
in Chapter 2. In the MUSIC program, memory was reserved for the 
variables by simply declaring the value of the symbols representing the 
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VIA #1 LED AO 
320 Af 
PAO <q LED 1 
PA2 Raf A LED 3 
PA4 Ah ae ees LED 5 
as > ES es 
— 7%, AS 
+5 45 
LED Aé 
3302 JA 
PBO @ LED9 
PB2 q LED 11 
WW 
LED B3 
= +5 
LED B4 
3302 /M4 
PB4 4 LED 13 


LED B7 





= +5 


Fig. 3.5: LED Connections 


PSEUDO RANDOM NUMBER GENERATOR 


variable locations with the statement: 


<VARIABLE NAME>) = (MEMORY ADDRESS > 


In this program, the location counter of the assembler is incremented 
with expressions of the form: 


*=* +n 


Thus, the symbols for the variable locations in this program are 
declared as ‘‘labels,’’ while, in the MUSIC program, they are ‘‘sym- 
bols’”’ or ‘‘constant symbols.”’ 

The program in this chapter consists of one main routine, called 
MOVE, and five subroutines: PLAY, COUNTER, BLINK, DELAY, 
RANDOM. Let us examine them. The data direction registers A and B 
for the VIA’s #1 and #3 of the board must first be initialized. DDRIA, 
DDR1B, and DDR3B are configured as outputs: 


START LDA #$FF 
STA DDRIA 
STA DDRIB 
STA DDR3B 


DDR3A is conditioned as input: 


LDA #0 
STA DDR3A 


Finally, the variables PLYR1 and PLYR2, used to accumulate the 
number of wins by each player, are initialized to zero: 


STA PLYR1 
STA PLYR2 


The main body of MOVE is then entered. A right arrow will be 
displayed to indicate that it is player 2’s turn. A reminder of the LEDs 
connections is shown in Figure 3.5. In order to display a right arrow, 
LEDs 1, 4, 5, 6, and 7 must be lit (refer also to Figure 3.1). This is ac- 
complished by outputting the appropriate code to Port 1A: 


MOVE LDA #%01111001 
STA PORTIA Display right arrow 
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The bottom line of LEDs must be cleared: 


LDA #0 
STA PORTIB 


Finally, the counters measuring elapsed time must be cleared: 


STA CNTLO 
STA CNTHI 


We are ready to play: 
JSR PLAY 


The PLAY routine will be described below. It returns to the calling 
routine with a time-elapsed measurement in locations CNTLO and 
CNTHI. 

Let us return to the main program (line 0082 in Figure 3.6). The 
time-elapsed duration which has been accumulated at locations 
CNTLO and CNTHI by the PLAY routine is saved in a set of perma- 
nent locations reserved for player 1, called CNT1L, CNT1H: 


LDA CNTLO 
STA CNT1L 
LDA CNTHI 
STA CNTIH 


It is then player 2’s turn, and a left arrow is displayed. This is ac- 
complished by turning on LEDs 3, 4, 5, and 6: 


LDA #%000111100 Display left arrow 
STA PORTIA 


Then LED #9 is turned on to complete the left arrow: 


LDA #1 
STA PORTIB 


As before, the time-elapsed counter is reset to zero: 


LDA #0 
STA CNTLO 
STA CNTHI 
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0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
001! 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
00353 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0041 
0062 
0063 
0064 
00465 
0046 
00467 
0048 
0049 
0070 
007% 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
ooal 
0082 
00383 
0084 


$ LOC 


0000 
0000 
90000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0060 
9000 
0000 
0000 
0001 
0002 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
OO0E 
000E 
0O0E 
OOOE 
O00E 
OOOF 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
001A 
0018 
oo1c 
oo1n 
001E 
OO1E 
OO1E 
OO1E 
0200 
0200 
0262 
0205 
0208 
02028 
0200 
0210 
0212 
0214 
0214 
0219 
0218 
O21E 
0220 
0222 
0225 
0227 
0229 


CODE 


AQ 


AO 


PSEUDO RANDOM NUMBER GENERATOR 


LINE 


§ “TRANSLATE ’ 

#PROGRAM TO TEST 2 PLAYER‘’S SPEED 

$IN TRANSLATING A BINARY NUMBER TO A SINGLE 
sHEXADECIMAL DIGIT. EACH PLAYER IS GIVEN A 
*TURN» AS SHOWN BY A LIGHTED LEFT OR RIGHT 
sPOINTER. THE NUMBER WILL SUDDENLY FLASH ON 
ILEDS 12-15,» ACCOMPANIED BY THE LIGHTING 
$OF LED #10, THE PLAYER MUST THEN 

sPUSH THE CORRESPONDING BUTTON. AFTER 

#BOTH PLAYERS TAKE TURNS» RESULTS ARE 
sSHOWN ON BOTTOM ROW, AFTER 10 WINS» 

3A FLAYER’S RESULTS WILL FLASH? 

sSHOWING THE BETTER FLAYER. THEN 

#TRE GAME RESTARTS. 


#I/0; 

U 

PORTLA = $A001 sLEDS 1-8 

PORTIB = %A000 PLEDS 9-15 

DDBRIA = $A003 

DEBRiB = A002 

PORTSA = $ACO1 *>KEY STROBE INPUT. 
PORTSB = #AC0O sKEY # OUTPUT. 
DBRZA = $ACOS 

DDR3R = $ACO2 


3 

*VARIABLE STORAGE: 

, 
x = $0 

; 

TEMP w=x+1 

CNTHI *=xk+1 *TEMPORARY STORAGE FOR AMT. OF 
TIME FLYR USES TO GUESS. 


CNTLO xk=*+1 


CNTIH k=¥+1 fAMT. OF TIHE FLYR1 USES TO GUESS. 
CNTiL | *=*+1 : 

PLYR1i &=xX+1 S5SCORE OF # WON FOR PLYR1. 

PLYR2 *=xX+1 sPLAYER 2 SCORE. 

NUMBER x=*+1 ‘STORES NUMBER TO BE GUESSER. 

SCR K=E+6 ¥SCRATCHPAD FOR RND. # GEN, 


; 
‘TABLE OF ’RKEVERSED’ NUMBERS FOR DISPLAY 
¢IN BITS 3-8 OF FORTIBs OR LEDS 12-15. 


? 

NUMTAB .BYTE %00000010 
+BYTE %10000010 
+BYTE 200100016 
«BYTE *£10100010 
»+BYTE 200010010 
sBYTE %19010010 
*BYTE 400110010 
eBYTE %190110010 
+BYTE 400001010 
*BYTE %10001010 
BYTE 200101010 
eBYTE 410101010 
BYTE 400011010 
+BYTE 410011010 
~BYTE 400111010 
+BYTE £10111010 

; 

#MAIN FROGRAM 


* = $200 


START LDA #OFF ¥SET UF FORTS 
STA DURLA 
STA DDRIB 
STA DDRSB 
LDA #0 
STA DDRIA 
STA PLYRI *CLEAR NO. OF WINS. 
STA PLYR2 
MOVE LDA #%01111001 
STA FORT1A §SHOW RIGHT ARRGW. 
LIA #0 
STA FORT1IB 
STA CNTLO sCLEAR COUNTERS. 
STA CNTHI 
JSR PLAY sGET FLAYER 1°S TIME. 
LDA CNTLO *XFER TEMP COUNT TO FERMANENT STORAGE. 
STA CNTIL 
LUA CNTHI 


Fig. 3.6: Translate Program 
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0085S O22B 85 03 STA CNT1H 

0086 O22D A? SC LDA #%000111100 *#SHOW LEFT ARROW. 

0087 O22F 81 O01 AO STA PORTIA 

0088 0232 AX O1 LDA #1 

0089 0234 8D 00 AD STA FORT1IB 

0090 0237 A? 00 LDA #0 

0091 0239 85 02 STA CNTLO ‘CLEAR COUNTERS. 

0092 O23B 85 01 STA CNTHI 

0093 O23D 20 8C 02 JSR PLAY iGET PLAYER 2°S TIME, 

0094 0240 A5 O1 LDA CNTHI §GET PLAYER 2°S COUNT AND... 
0095 0242 C5 03 CMP CNT1iH sCOMPARE TO PLAYER 1°S, 

0094 0244 FO 04 BEQ EQUAL sCHECK LOW ORDER BYTES TO RESOLVE WINNER. 
0097 0244 970 27 BCC FLR2 sPLAYER 2 HAS SMALLER COUNT, SHOW [T. 
0098 0248 BO 08 BCS PLRi sPLAYER 1 HAS SMALLER COUNT? SHOW IT, 
0099 024A AS 02 EQUAL LIA CNTLO sHI BYTES WERE EQUALe? SO 

0100 024C sCHECK LOW BYTES. 

O101 024C €5 04 CMP CNTIL 3COMPARE SCORES. 

0102 O24E 90 IF BCC PLR2 sPLAYER 2 WINSs SHOW IT. 

0103 0250 BO 00 BCS FPLR1 *PLAYER 1 WINS» SHOW IT. 

0104 0252 Ag FO PLR1 LDA #%11110000 *LIGHT RIGHT SIDE OF BOTTOM ROW 
0105 0254 aD 00 AO STA PORT1B 7TO SHOW WIN. 

0106 0257 A? 00 LOA 90 

9107 O259 8D O01 AO STA PORTIA *CLEAR LOW LEDS. 

0108 O25C A 40 LIA #$40 PWAIT A WHILE TO SHOW WIN. 

0109 O25E 20 EJ 02 JSR DELAY 

0110 0261 E6 05 INC PLYR1 sPLAYER 1 WINS ONE HORE... 

0111 0263 A? OA LOA #16 #+++HAS HE WOM 107 

O112 0265 CS 905 CMF FPLYR1I 

0113 0267 DO AB BNE MOVE PIF NOTs PLAY ANOTHER ROUND. 
0114 0269 A? FO LDA €X11210000 #YES - GET BLINK PATTERN. 

0115 0248 20 CB 02 JSR BLINK *BLINK WINNING SIDE. 

0114 O26E 460 RTS FENDGAME:S RETURN TO MONITOR. 
O117 O26F A? OE PLR2 LDA #41115 #LIGHT LEFT SIDE OF BOTTOM. 
0118 0271 SD 00 AO STA PORT1IB 

0119 0274 Ag OO LDA #0 

0120 02746 8D 01 Ad STA PORTIA *CLEAR LOW LEDS. 

0121 0279 AY 40 LDA #€40 #WAIT A WHILE TO SHOW WIN. 

0122 O27B 20 ES 02 JSR DELAY 

0123 O27E ES 06 INC PLYR2 sPLAYER 2 HAS WON ANOTHER ROUND...» 
0124 0280 A? OA LDA #10 veeeHAS HE WON 107 

0125 0282 CS 06 CMP PLYR2 

0126 0284 0 SE BNE MOVE $IF NOT» PLAY ANOTHER ROUND. 
0127 0286 A? OE LDA #241110 sYES-GET PATTERN TO BLINK LEDS. 
0128 O288 20 CB 02 JSR BLINK sBLINK THEM 

0129 O28B 60 RTS PEND. 

0130 028C ; 

O131 o28C #SUBROUTINE ‘PLAY’ 

0132 O28C *GETS TIME COUNT OF EACH PLAYERr AND IF 

9133 O28C ‘BAD GUESSES ARE MADE, THE PLAYER IS 

0134 028C #GIVEN ANOTHER CHANCE> THE NEW TIME ADDED TO 

0135 028C sTHE OLD. 

0136 028C , 

0137 #O28C 20 F4 02 FLAY JSR RANDOM §GET RANDOM NUMBER. 

0138 O28F 20 E3 02 JSR DELAY #RANDOM -—- LENGTH DELAY. 

0139 0292 20 F4 02 JSR RANDOM ‘GET ANOTHER. 

0140 0295 29 OF AND #$0F #KEEP UNDER 16 FOR USE AS 

0141 O297 85 07 STA NUMBER *NUMBER TO GUESS. 

0142 0299 AA TAX SUSE AS INDEX TO..., 

0143 O29A BS OE LDA NUMTABrX 3>-GET REVERSER FATTERN FROM TABLE ... 
0144 029C OD 00 AD ORA PGRT1B ieoeTO DISPLAY [N LEDS 12-15, 
0145 O29F 8D 60 AO STA PORTIB 

01446 O2A2 20 BS 02 JSR CNTSUB *>GET KEYSTROKE & DURATION COUNT. 
0147 O2AS C4 07 CPY NUMBER ‘IS KEYSTROKE CORRECT GUESS? 
OL48 O2A7 FO OB BEG DONE *IF SOs DONE. 

0149 O2A? AP O1 LDA #01 #NO} CLEAR OLD GUESS FROM LEDS. 
0150 O2AB 21 00 AO ANI FORTIB 

0151 O2AE 8 00 AO STA PORTLB 

0152 #O2R1 4C SC 02 JMF PLAY 8TRY AGAIN W/ANOTHER NUMBER. 
01353 O2B4 40 DONE RTS sRETURN W/ DURATION IN CNTLOFCNTHI 
09154 0285 3 

0155 0285 #SUBROUTINE ‘COUNTER’ 

0156 O2B5 sGETS KEYSTROKE WHILE KEEFING TRACK OF AMT OF 

0157 O2B5 STIME BEFORE KEYPRESS. 

0158 O2B5 ? 

0159 O2B5 AO OF CNTSUB LDY #$F *SET UP KEY# COUNTER. 

0160 0O2B7 8sC 00 AC KEYLFP STY PORT3B sOUTPUT KEY# TQ KEYBOARD MPXR. 
016i O2BA 2C 01 AC BIT PORTZA *7KEY DOWN? 

0162 O2RD 10 OB BFL FINISH $IF YES» DONE. 

0163 O2BF 986 DEY sCOUNT DOWN KEY #. 

0164 O2CO 10 FS BRL KEYLP sTRY NEXT KEY. 

0165 02C2 E6 02 INC CNTLO 7ALL KEYS TRIEDe INCREMENT COUNT. 
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01466 
0167 
01468 
0169 
0270 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
01861 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
OL97 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
02146 


SYMBOL 
SYMBOL 


BLINK 
CNTHI 
DDR1B 
DLti 
EQUAL 
NUMBER 
PLR2 
PORT18 
RNDLP 


END OF ASSEMBLY 


02C4 DBO EF 


02C6 E4 
o2Ce 0 
0o2CA 60 
02CH 

02CB 

O2CB 

O2CB 

O2CB 

QO2CB A2 
o2cCn 86 
O2CF 8&5 
62D1 AS 
o2D3 4D 
o2nDé aD 
02D9 A? 
O20B 20 
O2DE Cé 
O2EO DO 
O2E2 60 
O2E3 

02E3 

O2E3 

O2E3 

O2E3 85 
O2ES Ad 
O2E7 A2 
O2E? CA 
O2EA 10 
O2EC 88 
O2ED GO 
O2EF Cé 
O2F1 DO 
O2F3 40 
O2F4 

O2F 4 

O2F 4 

O2F 4 

O2F 4 

O2F4 38 
O2FS AS 
02F7 45 
O2FF 65 
O2FR BS 
O2FD A2 
O2FF BS 
O30O1L = F5 
0303 CA 
0304 10 
0306 40 
0307 


TABLE 
VALUE 


O2CB 
0001 
A002 
O2ES 
024A 
0007 
O26F 
A000 
O2FF 


BLOOP 
CNTLO 
DDRSA 
DL2 
FINISH 
NUMTAB 
PLYR1 
PORT3A 
SCR 


PSEUDO RANDOM NUMBER GENERATOR 


BNE CNTSUB sTKY KEYS AGAIN IF NO OVERFLOW. 
INC CNTHI SOVERFLOWs INCREMENT HIGH BYTE. 
BNE CNTSUB *>TRY KEYS AGAIN. 
FINISH RTS *DONE: TIME RAN OUT OR KEY PRESSED, 


8 
*SUBROUTINE “’BLINK’ 
*BLINKS LEDS WHOSE BITS ARE SET IN ACCUMULATOR 


7ON ENTRY. 
5 
BLINK LIX #20 $20 BLINKS. 
STX CNTHI 3SET BLINK COUNTER. 
STA CNTLO *BLINK REGISTER. 
BLOOF LDA CNILO iGET BLINK FATTERN. 
ECR PORT1B sBLINK LEDS. 
STA FPORTIB 
LDA #10 sSHORT DELAY. 
JSR DELAY 
DEC CNTHI 
BNE BLOOP *LOOP IF NOT DONE. 
RTS 


5 
iSUBROUTINE ‘DELAY’ 
‘CONTENTS OF REG. A DETERMINES DELAY LENGTH. 


t 
DELAY STA TEMF 
Dui LUY #$10 
NL2 LDX #$FF 
BLS DEX 
BNE DL3 
DEY 
BNE DL2 
DEC TEMP 
BNE DL1i 
RTS 
5 
§SUBROUTINE “RANDOM’ 
*RANDOM NUMBER GENERATOR. 
*RETURNS RANDOM NUMBER IN ACCUM, 


¥ 

RANDOM SEC 
LDA SCRt1 
ADC SCRt4 
ADC SCRtS 
STA SCR 
LOX @4 

RNDLP LDA SCR»X 
STA SCR41/°X 
DEX 
BPL RNDLP 
RTS 
+ENE 


O2D1 CNT1H 0003 CNT1IL 0004 
0002 CNTSUB 0285 TDRIA AN0S 
ACOS DDRSB ACO? NELAY O2E3 


O2E7 DLS O02E9 DONE 0284 
O2CA KEYLP 02B7 MOVE 0214 
OOOE FLAY 028C PLR1 0252 


0005 PLYR2 0006 PORTIA A001 
ACO FORTIB ACCO RANDOM O2F 4 
0008 START 0200 TEMP 0000 


Fig. 3.6: Translate Program (Continued) 
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and player 2 can play: 
JSR PLAY 


The time elapsed for player 2 is then compared to the time elapsed for 
player 1. If player 2 wins, a branch occurs to PLR2. If player 1 wins, a 
branch occurs to PLR1. The high bytes are compared first. If they are 
equal, the low bytes are compared in turn: 


LDA CNTHI 

CMP CNT1H Compare high bytes 

BEQ EQUAL 

BCC PLR2 Player 2 has lower time? 

BCS PLR1 Player 1 does 
EQUAL LDA CNTLO Compare low bytes 

CMP CNTIL 

BCC PLR2 

CMP CNTIL 

BCC PLR2 

BCS PLRI1 


Once the winner has been identified, the bottom row of LEDs on his 
or her side will light up, pointing to the winner. Let us follow what 
happens when PLRI wins, for example. Player 1’s right-most three 
LEDs (LEDs 13 through 15) are lit up: 


PLR1 LDA #% 11110000 
STA PORTIB 


The other LEDs on the Games Board are cleared: 


LDA #0 
STA PORTIA 


A DELAY is then implemented, and we get ready to play another 
game, up to a total of 10: 


LDA #$40 
JSR DELAY 


The score for player 1 is incremented: 


INC PLYRI 
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It is compared to 10. If it is less than 10, a return occurs to the main 
MOVE routine: 


LDA #10 
CMP PLYRI 
BNE MOVE 


Otherwise, the maximum score of 10 has been reached and the game is 
over. The LEDs on the winner’s side will blink: 


LDA #%11110000 Blink pattern 
JSR BLINK 
RTS 


The corresponding sequence for player 2 is listed at address PLR2 
(line 117 on Figure 3.6): 


PLR2 LDA #%1110 
STA PORTIB 
LDA #0 
STA PORTIA 
LDA #$40 
JSR DELAY 
INC PLYR2 
LDA #10 
CMP PLYR2 
BNE MOVE 
LDA #%1110 
JSR BLINK 
RTS 


The Subroutines 


PLAY Subroutine 

The PLAY subroutine will first wait for a random period of time 
before displaying the binary number. This is accomplished by calling 
the RANDOM subroutine to obtain the random number, then the 
DELAY subroutine to implement the delay: 


PLAY JSR RANDOM 
JSR DELAY 
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The RANDOM subroutine will be described below. Another random 
number is then obtained. It is trimmed down to a value between 0 and 
15, inclusive. This will be the binary number displayed on the LEDs. It 
is stored at location NUMBER: 


JSR RANDOM 
AND #0F Mask off high nibble 
STA NUMBER 


The NUMTAB table, described at the beginning of this section, is then 
accessed to obtain the correct pattern for lighting the LEDs using in- 
dexed addressing. Register X contains the number between 0 and 15 to 
be displayed: 


TAX Use X as index 
LDA NUMTAB,X Retrieve pattern 


The pattern in the accumulator is then stored in the output register in 
order to light the LEDs. Note that the pattern is OR’ed with the 
previous contents of the output register so that the status of LED 9 is 
not changed: 


ORA PORTIB 
STA PORTIB 


Once the random number has been displayed in binary form on the 
LEDs, the subroutine waits until the player presses a key. The 
CNTSUB subroutine is used for this purpose: 


JSR CNTSUB 


It will be described below. 

The value returned in register Y by this subroutine is compared to 
the number to be guessed, which is stored at memory address 
NUMBER. If the comparison succeeds, exit occurs. Otherwise, all 
LEDs are cleared using an AND, to prevent changing the status of 
LED 9, and the subroutine is reentered. Note that the remaining time 
for the player will be decremented every time the CNTSUB subroutine 
is called. It will eventually decrement to 0, and this player will be given 
another number to guess: 
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CPY NUMBER Correct guess? 
BEQ DONE 
LDA #01 No: clear old guess 
AND PORTIB 
STA PORTIB 
JMP PLAY Try again 

DONE RTS 


Exercise 3-1; Modify PLAY and/or CNTSUB so that, upon timeout, 
the player loses the current round, as if the maximum amount of time 
had been taken to make the guess. 


CNTSUB Subroutine 


The CNTSUB subroutine is used by the PLAY subroutine previous- 
ly described. It monitors a player’s keystroke and records the amount 
of time elapsed until the key is pressed. The key scanning is performed 
in the usual way: 


CNTSUB LDY #$F 
KEYLP STY PORT3B 
BIT PORT3A 
BPL FINISH 
DEY Count down key # 
BPL KEYLP Next key 
FINISH BNE CNTSUB 


Each time that all keys have been scanned unsuccessfully, the time 
elapsed counter is incremented (CNTLO,CNTHI): 


INC CNTLO 

BNE CNTSUB 

INC CNTHI 

BNE CNTSUB 
FINISH RTS 


Upon return of the subroutine, the number corresponding to the key 
which has been pressed is contained in index register Y. 


Exercise 3-2: Insert some ‘‘do-nothing”’ instructions into the CNTSUB 
subroutine so that the guessing time is longer. 
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BLINK Subroutine 


The LEDs specified by the accumulator contents are blinked 
(turned on and off) ten times by this subroutine. It uses memory loca- 
tion CNTHI and CNTLO as scratch registers, and destroys their 
previous contents. Since the LEDs must alternately be turned on and 
off, an exclusive-OR instruction is used to provide the automatic on/ 
off feature by performing a complementation. Because two com- 
plementations of the LED status must be done to blink the LEDs 
once, the loop is executed 20 times. Note also that LEDs must be kept 
lit for a minimum amount of time. If the ‘‘on’’ delay was too short, 
the LEDs would appear to be continuously lit. The program is shown 
below: | 


BLINK LDX #20 20 blinks 
STX CNTHI Blink counter 
STA CNTLO Blink register 

BLOOP LDA CNTLO Get blink pattern 
EOR PORT1B Blink LEDs 
STA PORTIB 
LDA #10 Short delay 
JSR DELAY 
DEC CNTHI 
BNE BLOOP Loop if not done 
RTS 

DELAY Subroutine 


The DELAY subroutine implements a classic three-level, nested 
loop design. Register X is set to a maximum value of FF 
(hexadecimal), and used as the inner loop counter. Register Y is set to 
the value of 10 (hexadecimal) and used as the level-2 loop counter. 
Location TEMP contains the number used to adjust the delay and is 
the counter for the outermost loop. The subroutine design is 
straightforward: 


DELAY STA TEMP 
DL1 LDY #$10 
DL2 LDX #$FF 
DL3 DEX 
BNE DL3 
DEY 
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BNE DL2 
DEC TEMP 
BNE DLI1 
RTS 


Exercise 3-3: Compute the exact duration of the delay implemented by 
this subroutine as a function of the number contained in location 
TEMP. 


RANDOM Subroutine 


This simple random number generator returns a semi-random 
number into the accumulator. A set of six locations from memory ad- 
dress 0008 (‘‘SCR’’) have been set aside as a scratch-pad for this 
generator. The random number is computed as 1 plus the contents of 
the number in location SCR + 1, plus the contents of the number in 
location SCR + 4, plus the contents of the number in location SCR 
+ 5; 


RANDOM SEC 
LDA SCR + 1 
ADC SCR + 4 
ADC SCR + 5 
STA SCR 


The contents of the scratch area (SCR and following locations) are 
then shifted down in anticipation of the next random number genera- 
tion: 


LDX #4 
RNDLP LDA SCR,X 

STA SCR + 1,X 

DEX 

BPL RNDLP 

RTS 


The process is illustrated in Figure 3.7. Note that it implements a 
seven-location circular shift. The random number which has been 
computed is written back in location SCR, and all previous values at 
memory locations SCR and following are pushed down by one posi- 
tion. The previous contents of SCR + 5 are lost. This ensures that the 
numbers will be reasonably random. 
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NUMBER 





Fig. 3.7; Random Number Generation 


SUMMARY 


This game involved two players competing with each other. The 
time was kept with nested loops. The random number to be guessed 
was generated by a pseudo-random number generator. A special table 
was used to display the binary number. LEDs were used on the board 
to indicate each player’s turn to display the binary number, and to 
indicate the winner. 


Exercise 3-4: What happens in the case in which all memory locations 
from SCR to SCR + 5 were initially zero? 
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4. Hardware Random Number Generator 
(Hexguess) 


INTRODUCTION 


In this chapter random numbers will be generated using the timer’s 
latch on an input/output chip. More complex algorithms will be devised 
and simultaneous light and sound effects will be created. 


THE RULES 


The object of this game is to guess a secret 2-digit number generated 
by the computer. This is done by guessing a number, then submitting 
this number to the computer and using the computer’s response (in- 
dicating the proximity of the guessed number to the secret number) to 
narrow down a range of numbers in which the secret number resides. 
The program begins by generating a high-pitched beep which signals 
to the player that it is ready for a number to be typed. The player must 
then type in a two-digit hexadecimal number. The program responds 
by signaling a win if the player has guessed the right. number. If the 
player has guessed incorrectly, the program responds by lighting up 
one to nine LEDs, indicating the distance between the player’s guess 
and the correct number. One lit LED indicates that the number 
guessed is a great distance away from the secret number, and nine lit 
LEDs indicate that the number guessed is very close to the secret 
number. 

If the guess was correct, the program generates a warbling tone and 
flashes the LEDs on the board. The player is allowed a maximum of 
ten guesses. If he or she fails to guess the correct number in ten tries, a 
low tone is heard and a new game is started. 


A TYPICAL GAME 


The computer beeps, notifying us that we should type in a guess. 


Our guess is: ‘*40’’ 
The computer lights 4 LEDs We are somewhat off 
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Next guess: ‘*COQ”’’ 
Computer’s answer: 3 LEDs We are going further away 
Next guess: ‘20’ 


Computer’s response: 3 The number must be between 
CO and 20 

Next guess: ‘‘80”’’ 

Response: 5 We are getting closer 

Next guess: ‘°75”’ 

Response: 5 It’s not just below 80 

Next guess: ‘°°90’’ 

Response: 4 We’re wandering away 

Next guess: ‘‘65”’ 

Response: 7 Now we’re closing in 

Next guess: ‘°60’’ 

Response: 9 

Next guess: ‘“SF’’ 

Response: 8 


Next guess: ‘‘61”’ 
We win!!! All the LEDs flash and a high warbling tone is heard. 


THE ALGORITHM 


The flowchart for Hexguess is shown in Figure 4.1. The algorithm is 
straightforward: 


— a random number is generated 

— a guess is entered 

— the closeness of the number guessed to the secret 
number is evaluated. Nine levels of proximity are 
available and are displayed by an LED on the board. 
A closeness or proximity table is used for this pur- 
pose. 

— a win or a loss is signaled 

— more guesses are allowed, up to a maximum of 
ten. 


THE PROGRAM 
Data Structures 


The program consists of.one main routine called GETGES, and two 
subroutines called LITE and TONE. It uses one simple data structure 
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GUESS NBR = 10 
NUMBER = 
RANDOM VALUE 
READ GUESS 
FROM KEYBOARD 
DECREMENT 
GUESS NBR 
TEMP = ABS 
(NUMBER-GUESS) 
COUNTER = 0 


TEMP 
<LIMITABLE 
COUNTER? 


INCREMENT 
COUNTER 
















TURN ON 
COUNTER +1 
LIGHTS 







GUESS NBR = 0? 





SIGNAL A WIN SIGNAL A LOSE 


Fig. 4.1: Hexguess Flowchart 
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— a table called LIMITS. The flowchart is shown in Figure 4.1, and 
the program listing appears in Figure 4.2. 

The LIMITS table contains a set of nine values against which the 
proximity of the guess to the computer’s secret number will be tested. 
It is essentially exponential and contains the sequence: 1,2,4,8,16,32 
64,128,200. 


Program Implementation 


Let us examine the program itself. It resides at memory address 200 
and may not be relocated. Five variables reside in page zero: 


GUESS is used to store the current guess 
GUESS# is the number of the current guess 
DUR and FREQ are the usual parameters re- 
quired to generate a tone (TONE subroutine) 
NUMBER is the secret computer number 


As usual, the data direction registers VIA #1 and VIA #3 are condi- 
tioned in order to drive the LED display and read the keyboard: 


LDA #$FF 

STA DDRIA OUTPUT 
STA DDRIB OUTPUT 
STA DDR3B OUTPUT 


Memory location DUR is used to store the duration of the tone to be 
generated by the TONE subroutine. It is initialized to ‘‘FF’’ (hex): 


STA DUR 


The memory location GUESS# is used to store the number of guesses. 
It is initialized to 10: 


START LDA #$0A 
STA GUESS# 


The LEDs on the Games Board are turned off: 
LDA #00 


STA PORTIA 
STA PORTIB 
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02003 
02023 
6205: 
02083 
0208: 
O200% 
O2OF 
O211¢ 
02132 
02163 
O2195 
0210 
O21E: 


OP20% 
02232 
02263 
02273 
O228% 
O2296 
OVZAS 
92205 
O22F 3 
02318 
ASE 
02558 
02373 
0238: 


O23A$ 
923C3 
O23E 
O2 SF 


AO 


AO 


O1 


HARDWARE RANDOM NUMBER GENERATOR 


§“HEXGUESS ’ 

*HEXADECTMAL NUMBER GUESSING GAME. 

yTHE ORJECT OF THE GAME IS TO GUESS A HEXANECIMAL 
*NUMBER THAT THE COMPUTER HAS THOUGHT UF, 
YWHEN THE COMPUTER "BEEFS*>s A GUESS SHOULD 

sRE ENTERED. GUESSES ARE TWO NIGIT HEXADECIMAL. 
*NUMBERS. WHEN TWO DIGITS HAVE BREEN RECEIVED» 
yTHE COMPUTER WILL TNISPLAY THE NEARNESS 

‘DF THE GUESS BY LIGHTING A NUMBER OF 

7LEDS PROPORTIONAL TO THE CLOSENESS OF 

yTHE GUESS. TEN GUESSES ARE ALLOWED. 

¢IF A GUESS TS CORRECT» THEN THE COMPUTER 
PWILL FLASH THE LEDS AND) MAKE A WARRLING 
*>TONE. 

7THE ENTRY LOCATION IS $200, 


, 
GETKEY = $100 


96522 VIA #1 ADDRESSES: 
TIMER = $A004 PLOW LATCH OF TIMER t 
NDRLA = $A003 sFORTA TATA HIRECTION KEG. 
EDRIE = $AQ02 sPORTE TATA TTRECTION REG. 
FORTIA = SA00Ot *PORT A 
FORTLR = A000 *FORT & 
96022 VIA #3 ADNRESSES$ 
LOR AB = $aACo? sFORTR PATA BIRECTION REG. 
FORTSE = $ACooO sPORT Et 
sSTORAGES ¢ 
GUESS = $00 
GUESS# = $01 
TUR = $02 
FREQ = $03 
NUMBER = £04 
» = $200 
LIA €¢FF ?SET UF DATA DIRECTION REGISTERS 
STA TTIRIA 
STA DORIE 
STA DDRZE 
STA TUR rPSET UF TONE RURATIONS. 
START LTA #$0A #10 GUESSES ALLOWED 
STA GUESS# 
LTA £€06 PRLANK LEDS 
STA FORTIA 
STA FORTIS 
LTA TIMER *GET RANTOM NUMBER TO GUESS 
STA NUMBER r+e/ OND SAVE. 
GETGES LIA ##20 *SET UF SHORT HIGH TONE TO 
>STGNAL USER TO INPUT GUESS, 
J&R TONE PMAKE REEF. 
JSF GETKEY 7GET HIGH ORDER USER GUESS 
ASL A rSHIFT INTO HIGH ORDER FOSITION 
ASL. A 
ASL A 
ASL A 
STA GUES SSAVE 


JSK GETKEY sGET LOW ORDER USER GUESS 
AND #2%00001111 YMASK HIGH ORDER BITS. 


QORA GUESS SANG HIGH ORTIER NIBRLE. 

STA BGUESS sFINAL PRONUCT SAVED, 

LOA NUMBER SGET NUMBER FOR COMPARE 

SEC 

SBC GUESS *>SUBTRACT GUESS FROM NUMBER 


¢T0O DETERMINE NEARNESS OF GUESS, 
BCS ALRIGHT SFOSITIVE VALUE NEEDS NO FIX. 
EOF #412111111 yMARKE DISTANCE ABSOLUTE 
SEC sMAKE IT A FWO’S COMPLEMENT 
ALC #00 ¥e-eNOT JUST A ONES COMPLEMENT. 


Fig. 4.2: Hexguess Program 
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O2FGS 
O29 ¢ 
O2SE3 
QO25E 
92608 
0263% 
92663 
02483 
O246R? 
O26r? 
O2GF 3 


02703 
O27? 8 
O275% 
92783 
O27E SE 
O27TH 
O27F t 
O2B2$ 
Q2843 
02862 
0288 % 
O2BB¢ 


O28 
92903 
O2915 
02923 
92933 


O29S53 


0296) 
O298B3 
O29A3 
Q290 3 
O29E § 
O29F SE 
O2A0! 
O2A23 
O2A4s 
O2ZAGi 
O2A9 3 
O2AAE 
O2AC3 


00 
Art 


a7 


OO 


F Ft 


02 


AC 


ALRIGHT LUX 


LOOF 


WIN 


WOW 


SIGNAL. 


CC 


> ‘ab 


71S REACHED. 


LITE 
SHIFT 


ry 
’ 
a 
’ 


CMF 


BCS 


INX 
CFX 
BNE 
iTla 
STA 
LDA 
STA 
STA 
Loa 
ASF 
LTA 
EOF 
STA 
STA 
NEC 
BNE. 
BERQ 
INX 


LOA 
STA 
JSF 
STA 
RCC 
LIA 
STA 
DEC 
ENE 
LIA 
JASE 
a ad 


SROUTINE TOG 


LDA 
SEC 
ROL. 
Tie X 
BNE 
RTS 


STA 
LIA 
{Tix 
Ly 
Ney 
CLC 
RCC 
RNE: 
EOR 
STA 
DE X 
RNE 
RTS 


#00 


LIMITS +X 


STGNAL. 


#9 
L.OOF 
#11 
GUESS 
OFF 
FORTLA 
FORTIB 
#20 
TONE 
FEF F 
FORTIA 
FORTIA 
FORTIB 
GUESS 
WOW 
START 


#0 
FORTIE 


START 


9SET CLOSENESS COUNTER TO DISTANT 
COMPARE NEARNESS OF GUESS TO 
‘TABLE OF LIMETS TO SEE HOW MANY 
SL IGHTS TO LIGHT. 
*NEARNESS TS BIGGER THAN LIMTTs 
*GO LIGHT INDICATOR. 
yLOOK AT NEXT CLOSENESS LEVEL, 
2ALL. NINE LEVELS TRIEN? 
yNOse TRY NEXT LEVEL. 
‘YES! WIN! LOAD NUMBER 
sUSE GUESS AS TEMP 
9LIGHT LEDS 


SQ. 


OF BLINKS 


?7TONE VALUE 
#MAKE WIN SIGNAL. 


*COMFLEMENT FORTS 


PELINKS/TONES DIGNE? 

yNOr [10 AGAIN 

sYES» START NEW GAME, 
SINCREMENT CLOSENESS~LEVEL. 
SsCOUNTER SQ AT LEAST 2 LEN 
yCLEAR HIGH LED FORT 


IS 


Lott. 


7GET LED PATTERN 
eSET LEDS 
yIF CARRY SET FRO = 1 


2ONE GUESS USET 
ySOME LEFT» GET NEXT. 
7LOW TONE SIGNALS LOSE 


*NEW GAME, 


MAKE FATTERN OF LIT LEDS BY SHIFTING A 
>STRING OF ONES TO THE LEFT IN THE ACCUMULATOR UNTIL. 
r*THE BIT FOSITION CORRESPONDING TO THE) NUMBER IN X 


£0 
a 


SHIFT 


FREQ 
#400 
NUR 

FREQ 


et2 
Fid 
#3FF 
FORTIE 


FL2 


PCLEAR ACCUMULATOR FOR FATTERN 
*MAKE LOW BIT HIGH, 

sSHIFT TT IN 

*ONE HIT TONE... 

* LOOF TF NOT DONE, 

sRKETURN 


TONE GENERATION ROUNTINE. 


TARLE OF LIMITS FOR CLOSENESS LEVELS, 


Fig. 4.2; Hexguess Program (Continued) 
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O2ALs C8 LIMITS BYTE 2009128164232 91 G9 Brave 
O2AE3 80 
O2ZAF? 40 
O2ROs 20 
OPBIS 10 
O2H2: 08 
O2K3: 04 
O2H4AS O02 
O2BSs O1 


SYMROL TABLE: 
GETKEY 0100 TIMER TERIA A0OS 


DINRIB £002 PORTIA FORTLR ANNO 
DURSE ACO? PORT SE GUESS 0000 
GUESS# 0001 Tiutk FRER 0003 
NUMBER 0004 START GE TGES O2LE 
ALRIGHT 0241 L. OOF WIN 0240 
WOW 0259 STGNAL CC 0282 
LITE O2BE. SHIFT TONE QO296 
FL.2 O29C FL1 LIMITS O2AT 





Fig. 4.2: Hexguess Program (Continued) 


The program will generate a random number which must be guessed 
by the player. A reasonably random number is obtained here by 
reading the value of timerl of VIA #1. It is then stored in memory ad- 
dress NUMBER: 


LDA TIMER Low latch of timer 1 
STA NUMBER 


A random number generator is not required because requests for ran- 
dom numbers occur at random time intervals, unlike the situation in 
most of the other games that will be described. An important observa- 
tion on the use of TICL of a 6522 VIA is that it is often called a 
‘‘latch’’ but it is a ‘‘counter’’ when performing a read operation! Its 
contents are not frozen during a read as they would be with a latch. 
They are continuously decremented. When they decrement to 0, the 
counter is reloaded from the ‘‘real’’ latch. 

Note that in Figure 4.3 T1L-L is shown twice — at addresses 04 and 
06. This is a possible source of confusion and should be clearly 
understood. Location 4 corresponds to the counter; location 6 cor- 
responds to the latch. Location 4 is read here. 

We are ready to go. A high-pitched tone is generated to signal the 
player that a guess may be entered. The note duration is stored at 
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= 
















OE 


OF 


\/O data, port A 


Used for control-affects handshake 


Data direction 
registers 


Counter-low 


Counter-high 


Timer | 
Latch-low 
Latch-high 
Latch-low 
Counter-low Timer 2 
Counter-high 
Shift register 
Auxiliary Function 
control 
Peripheral 
Flags Interrupt 
Control 
Enable 


Output register A 
(does not affect handshake) 


Fig. 4.3: 6522 VIA Memory Map 


memory location DUR while the note frequency is set by the contents 
of the accumulator: 

GETGES LDA #$20 
JSR TONE 


High pitch 


Two key strokes must be accumulated for each guess. The GETKEY 
subroutine is used to obtain the number of the key being pressed, 
which is then stored in the accumulator. Once the first character has 
been obtained, it is shifted left by four positions into the high nibble 
position, and the next character is obtained. (See Figure 4.4.) 
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A 
ELE 
| Wye CUES 


PRESERVE AT ““GUESS”’ SHIFT BY 4 


ome [| ea 








FINAL 2 DIGIT GUESS 


Fig. 4.4: Collecting the Player's Guess 


JSR GETKEY 
ASLA 

ASL A 

ASL A 

ASL A 

STA GUESS 
JSR GETKEY 


Once the second character has been transferred into the accumulator, 
the previous character, which had been saved in memory location 
GUESS, is retrieved and OR’ed back into the accumulator: 

AND #%00001111 

ORA GUESS 


It is stored back at memory location GUESS: 


STA GUESS 
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Now that the guess has been obtained, it must be compared against the 
random number stored by the computer at memory location 
NUMBER. A subtraction is performed: 


LDA NUMBER 
SEC 
SBC GUESS 


Note that if the difference is negative, it must be complemented: 


BCS ALRIGHT Positive? 
EOR #%11111111 Itis negative: complement 
SEC Make it two’s complement 
ADC #00 Add one 


Once the ‘‘distance’’ from the guess to the actual number has been 
computed, the ‘‘closeness-counter’’ must be set to a value between 1 
and 9 (only nine LEDs are used). This is done by a loop which com- 
pares the absolute ‘‘distance’’ of the guess from the correct number to 
a bracket value in the LIMITS table. The number of the appropriate 
bracket value becomes the value assigned to the proximity or closeness 
of the guessed number to the secret number. Index register X is initial- 
ly set to 0, and the indexed addressing mode is used to retrieve bracket 
values. Comparisons are performed as long as the ‘‘distance’’ is less 
than the bracket value, or until X exceeds 9, i.e., until the highest table 
value is looked up. 


ALRIGHT LDX #00 


LOOP CMP LIMITS,X — Look up limit value 
BCS SIGNAL 
INX Closeness is less 
CPX #9 Keep trying 10 times 
BNE LOOP 


At this point, unless a branch has occurred to SIGNAL, the distance 
between the guess and the actual number is 0: it is a win. This is sig- 
naled by blinking the LEDs and by generating a special win tone: 


WIN LDA #11 


STA GUESS Scratch storage 
LDA #FF 
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STA PORTIA 
STA PORTIB 

WOW LDA #50 Tone pitch 
JSR TONE Generate tone 


The blinking is generated by complementing the LEDs repeatedly: 


LDA #$FF 

EOR PORTIA Complement ports 
STA PORTIA 

STA PORTIB 


The loop is executed again: 


DEC GUESS 
BNE WOW 


Finally, when the loop index (GUESS) reaches zero, a branch occurs 
back to the beginning of the main program: START: 


BEQ START 


If, however, the current guess is not correct, a branch to SIGNAL 
occurs during bracket comparison, with the contents of the X register 
being the proximity value: i.e., the number of LEDs to light. Depend- 
ing on the closeness of the guess to the secret number, LEDs #1 to #9 
will be turned on: 


SIGNAL INX Increment closeness level 
LDA #0 Clear high LED port 
STA PORTIB 
JSR LITE Get LED pattern 
STA PORTIA 
BCC CC If carry set, PBO = 1 
LDA #01 
STA PORTIB 


The number of LEDs to turn on is in X. It must be converted into the 
appropriate pattern to put on the output port. This is done by the 
LITE subroutine, described below. 

If LED #9 is to be turned on, the carry bit is set by LITE. An ex- 
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plicit test of the carry for this case is done above (the pattern 01 is then 
sent to PORT1B). The number of the current guess is decremented 
next. If it is 0, the player has lost: the lose signal is generated and a 


7 0 C 
A - 00 000 0 0 0 ru JUST BEFORE Ist ROTATION 
0 
7 0 C 


A i 00000001 wu BEFORE 2nd ROTATION 
0 


BEFORE 3rd ROTATION 


BEFORE 8th ROTATION 
(CARRY WILL BE 0) 


AFTER 9th ROTATION 
(CARRY IS 1) 





Fig. 4.5: Obtaining the LED pattern for 8 LED's 
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new game is started; otherwise, the next guess 1s obtained: 


CC DEC GUESS# 
BNE GETGES Any guesses left? 
LDA #$BE Low tone 
JSR TONE 
JMP START New game 


The Subroutines 


LITE Subroutine 


The LITE subroutine will generate the pattern required to light up 
LEDs #1 to #8, depending on the number contained in register X. The 
required ‘‘1’’ bits are merely shifted right in the accumulator as 
register X is being decremented. An example is given in Figure 4.5. 
4.5. 

Upon exit from the subroutine, the accumulator contains the cor- 
rect pattern required to light up the specified LEDs. If LED #9 is in- 
cluded, the pattern would consist of all ones, and the carry bit would 
be set: 


LITE LDA #0 
SHIFT SEC Starting ‘‘1”’ 
ROL A Rotate the ‘‘1”’ to position 
DEX Done? 
BNE SHIFT 
RTS 


TONE Subroutine 


The TONE subroutine will generate a tone for a duration specified 
by a constant in memory location DUR, at the frequency specified by 
the contents of the accumulator. Index register Y is used as the inner 
loop counter. The tone is generated, as usual, by turning the speaker 
connected to PORT3B on and off successively during the appropriate 
period of time: 


TONE STA FREQ 
LDA #$00 
LDX DUR 
FL2 LDY FREQ 
FLI DEY 
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CLC 

BCC .+2 
BNE FL! 
EOR #$FF 
STA PORT3B 
DEX 

BNE 

RTS 


SUMMARY 


This time, the program used the timer’s latch (i.e., a hardware register) 
rather than a software routine as a random number generator. A simple 
‘‘LITE”’ routine was used to display a value, and the usual TONE 
routine was used to generate a sound. 


EXERCISES 


Exercise 4-1: Jmprove the Hexguess program by adding the following 
feature to it. At the end of each game, if the player has lost, the pro- 
gram will display [the number which the player should have guessed] 
for approximately 3 seconds, before starting a new game. 


Exercise 4-2: What would happen if the SEC at location 290 hex- 
adecimal were left out? 


Exercise 4-3; What are the advantages and disadvantages of using the 
timer’s value to generate a random number? What about the suc- 


cessive numbers? Will they be related? Identical? 


Exercise 4-4: How many times does the above program blink the lights 
when it signals a win? 


Exercise 4-5: Examine the WIN routine (line 24D). Will the win tone 
be sounded once or several times? 


Exercise 4-6: What is the purpose of the two instructions at addresses 
29F and 2A0? (Hint: read Chapter 2.) 


Exercise 4-7: Should the program start the timer? 
Exercise 4-8: /s the number of LEDs lit in response to a guess linearly 


related to the closeness of a guess? 
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5. Simultaneous Input/Output 
(Magic Square) 


INTRODUCTION 


Special visual patterns will be created by this program. Random 
numbers will be generated by the hardware source, the timer. Delays, 
blinkers, and counters will be used. 


THE RULES 


The object of the game is to light up a perfect square on the board, 
i.e., to light LEDs 1, 2, 3, 6, 9, 8, 7, and 4 but not LED #5 in the 
center. 

The game is started with a random pattern. The player may modify 
the LED pattern on the board through the use of the keyboard, since 
each of the keys complements a group of LEDs. For example, each of 
the keys corresponding to the corner LED positions (key numbers: 1, 3, 
9, and 7) complements the pattern of the square to which it is attached. 
Key #1 will complement the pattern formed by LEDs 1, 2, 4, 5. 
Assuming that LEDs 1, 2, and 4 are lit, pressing key #1 will result in 
the following pattern: l-off, 2-off, 4-off, 5-on. 


@® @ O O 
@® 0 O O 
O OO OC O O O 


The pattern formed by LEDs 1, 2, 4, and 5 has been complemented 
and only LED #5 is lit after pressing key #1. Pressing key #1 again will 
result in: 1, 2, and 4-on with 5-off. Pressing a key twice results in two 
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successive complementations, i.e., it cancels out the first action. 
Similarly, key #9 complements the lower right-hand square formed 
by LEDs 5, 6, 8, and 9. 
Key #3 complements the pattern formed by LEDs 2, 3, 5, and 6. 
Key #7 complements the pattern formed by LEDs 4, 5, 7, and 8. 
The ‘‘edge keys’’ corresponding to LEDs 2, 4, 6, and 8 complement 
the pattern formed by the three LEDs of the outer edge of which they 
are a part. For example, pressing key #2 will complement the pattern 
for LEDs 1, 2, and 3. Assume an initial pattern with LEDs 1, 2, and 3 
lit. Pressing key #2 will result in obtaining the complemented pattern, 
1.e., turning off all three LEDs. Similarly, assume an initial pattern 
on the left vertical edge where LEDs 4 and 7 are lit. 


O OO O 
@® 0 O 
@® 0 O 


Pressing key #4 will result in a pattern where LED #1 is lit and LEDs 4 
and 7 are turned off. 


@® 0 O 
—-O O O 
OO O 


KEY 4 HAS BEEN PRESSED 


Likewise, key #8 will complement the pattern formed by LEDs 7, 8, 
and 9, and key #6 will complement the pattern formed by LEDs 3, 6, 
and 9, 
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Finally, pressing key #5 (the center LED position) will result in com- 


plementing the pattern formed by LEDs 2, 4, 5, 6, and 8. For exam- 
ple, assume the following initial pattern where only LEDs 6 and 8 are 


lit: 


Oo Oo © 
OO @ 
O @ OO 





Pressing key #5 will result in lighting up LEDs 2, 4, and 5: 
0@O 
ee 0 
000 


The winning combination in which all LEDs on the edge of the square 
are lit is obtained by pressing the appropriate sequence of keys. 


® @ ®@ 
@® 0 ®@ 
eo 8 @ 
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The mathematical proof that it is always possible to achieve a ‘‘win’’ 
is left as an exercise for the reader. The program confirms that the 
player has achieved the winning pattern by flashing the LEDs on and 
off. 


Key ‘‘0’’ must be used to start a new game. A new random pattern 
of lit LEDs will be displayed on the board. The other keys are ignored. 


A TYPICAL GAME 


Here is a typical sequence: 
The initial pattern 1s: 1-3-4-6-9. 


@® 0 ®@ 
@® 0 ®@ 
OO © 





Move: press key #8. 
The resulting pattern is: 1-3-4-6-7-8. 


® oO @ 
® 0 @ 


Next move: press key #2. 
The resulting pattern is: 2-4-6-7-8. 
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| 


@® 0 ®@ 
® @ 0 


Next move: press key #3. 
The resulting pattern is: 3-4-5-7-8. 


O o 
© 
@® @ 0 


Next move: press key #2. 
The resulting pattern is 1-2-4-5-7-8. 
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Next move: press key #6. 
The resulting pattern is 1-2-3-4-5-6-7-8-9. 











Note that this is a ‘‘classic’’ pattern in which all LEDs on the board 
are lit. It is not a winning situation, as LED #5 should be off. Let us 
proceed. 

Next move: the end of this game is left to the mathematical talent of 
the reader. The main purpose was to demonstrate the effect of the 
various moves. 

Hint: a possible winning sequence is 2-4-6-8-5! 

General advice: in order to win this game, try to arrive quickly at a 
symmetrical pattern on the board. Once a symmetrical pattern is ob- 
tained, it becomes a reasonably simple matter to obtain the perfect 
square. Generally speaking, a symmetrical pattern is obtained by hit- 
ting the keys corresponding to the LEDs which are off on the board 
but which should be ‘‘on’’ to complete the pattern. 


THE ALGORITHM 


A pattern is generated on the board using random numbers. The 
key corresponding to the player’s move is then identified, and the ap- 
propriate group of LEDs on the board is complemented. 

A table must be used to specify the LEDs forming a group for each 
key. 

The new pattern is tested against a perfect square. If one exists, the 
player wins. Otherwise, the process begins anew. 

The detailed flowchart is shown in Figure 5.1. 
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(1) 


TEMP = TABLE [(KEY 
NUMBER) X 2] 















GET RANDOM 
NUMBER FROM 
TIMER 


STORE IN PORTA 


GET RANDOM 
NUMBER FROM 
TIMER 


STORE IN PORT B 


PORT A = [(PORT A) 
EOR (TEMP)] 


TEMP = TABLE 


[(KEY NUMBER) 
K2+1] 





PORT 8 = ((PORT B) 
EOR (TEMP)] 





NO 











PATTERN IN 
PORTS = WIN? 


GET KEY NUMBER 


KEY NUMBER 
= 0? 


KEY NUMBER 
>9? 
NO 


PORT A = (PORTA) 
EOR $FF 


PORT B = (PORT B) 
EOR $FF 
TEMP = TEMP — 1 


<> 


Fig. 5.1: Magle Square Flowchart 
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THE PROGRAM 


Data Structures 


The main problem here is to devise an efficient way to complement 
the correct LED pattern whenever a key is pressed. The complementa- 
tion itself may be performed by an Exclusive-OR instruction. In this 
case, the pattern used with the EOR instruction should contain a ‘‘1”’ 
in each LED position which is to be complemented, and ‘‘0’’s 
elsewhere. The solution is quite simple: a nine-entry table, called 
TABLE, is used. Each table entry corresponds to.a key and has 16 bits 
of which only nine are used inasmuch as only nine LEDs are used. 
Each of the nine bits contains a ‘‘1’’ in the appropriate position, in- 
dicating the LED which will be affected by the key. 

For example, we have seen that key number 1 will result in com- 
plementing LEDs 1, 2, 4, and 5. The corresponding table entry is 
therefore: 0, 0, 0, 1, 1, 0, 1, 1, where bits 1, 2, 4, and 5 (starting the 
numbering at 1, as with the keys) have been set to ‘‘1.’’ Or, more 
precisely, using a 16-bit pattern: 

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1 
The complete table appears below in Figure 5.2. 


00011011 
00000111 
00110110 
01001001 
10111010 
00100100 
11011000 
11000000 
101 10000 


1 
2 
3 
4 
5 
6 
7 
8 
9 





Fig. 5.2: Complementation Table 


Program Implementation 


A random pattern of LEDs must be lit on the board at the beginning 
of the game. This is done, as in the previous chapter, by reading the 
value of the VIA #1 timer. If a timer were not available, a random 
number-generating routine could be substituted. 
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02023 
02053 
0208: 
O20B: 
O20E 3 
O211% 
02135 
O216% 
02193 
O21B5 
O210: 
O21F3 


O22F 
O232% 
0235! 
0237% 


O23At 
O23K° 
O23T? 
02403 
02423 


01 


o1 
OB 
O1 
00 
6C 
O1 
00 


Le? 
O1 
EF 
N2 


AD 
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3 ‘MAGIC SQUARE’ FROGRAM 

yKEYS 1-9 ON THE HEX KEYROARD ARE EACH ASSOCIATEN 
®WITH ONE LET! IN THE 3X3 ARRAY. WHEN A KEY IS PRESSED» 
7IT CHANGES THE PATTERN OF THE LIT LEDS IN THE ARRAY. 
ITHE ORJECT OF THE GAME IS TO CONVERT THE RANTIIOM 
7PATTERN THE GAME STARTS WITH TO A SQUARE OF LIT 

PLENS BY PRESSING THE KEYS. THE LEDS WILL FLASH WHEN 
7THE WINNING PATTERN JTS ACHTIEVEN, 

sKEY #0 CAN BE USED AT ANY TIME TO RESTART 

THE GAME WITH A NEW PATTERN. 

9 

GETKEY =%100 

Free =#A004 7L.OW REGISTER OF TIMER IN 6522 VIA 


FORT =SA001 965922 VIA FORT A 
FORT2 =$A000 96922 VIA FORT & 
TEMF =$0000 sTEMPORARY STORAGE. 
DRA =$A003 PATA DIRECTION REGESTER OF FORT A 
NORE =$A002 rSAME FOR FORT & 
+=$200 


COMMENTS? THIS FROGRAM USES A TIMER REGISTER FOR A 
RANDOM NUMBER SOURCE. IF NONE TS AVAILABLE: A 
RANDOM NUMBER GENERATOR COULD BE USED. BUT 
IVE TO ITS REPEATABILITY: IT WOULD NOT WORK AS 
WELt.. THIS FROGRAM USES FORT A’S REGISTERS FOR 
STORAGE OF THE LET PATTERN. SINCE WHAT TS REAT 
BY THE FROCESSOR IS THE FOLARITY OF THE 
OUTFUT LINES» AN EXCESSIVE LOAD ON THE t. INES WOULD 
FREVENT THE PROGRAM FROM WORKING CORRECTLY, 


ee “Ob “as “Gs Wh WP “SP WP “EP “OD “aP 


LOA #$FF ISET UF PORTS FOR OUTFUT 
STA DDRA 
STA DIRE 


START LnA TICL ‘GET 1ST RANDOM NUMBER 
STA FORT 
LOA TACL >.+eANT SECOND. 
ANT! #01 MASK OUT BOTTOM ROW LEIS 
STA FORT2 
KEY JSK GETKEY 
CMF #0 sKEY MUST BE 1-98 IS IT OF 
REQ START 9VYESs RESTART GAME WITH NEW ROART*. 
CMF #10 975 IT LESS THAN 107 
RPL KEY y+ TF KEY #2102 SO GET ANOTHER 
’ 
sFOLLOWING SECTION USES KEY NUMBER AS INDEX TO FINE IN 
7TARLE A BIT PATTERN USED TO COMPILEMENT LENS 
g 
SEC *NECREMENT A FOR TARLE ACCESS 
SRC #1 
ASL. A IMULTIFLY Ak2* SINCE EACH ENTRY IN 
yTABLE IS TWO BYTES. 
TAX sUSE A AS INDEX 
LDA FORTL *GET FORT CONTENTS FOR COMPLEMENT 
EDR TABLE» xX FEOR FORT CONTENTS W/PATTERN 
STA FORT1 SRESTORE FORTI 
LIGA FORT2 FL SAME WITH FORT2, 
EOR TABLE+1»X ¢eoeUGSING NEXT TABLE ENTRY, 
AND #01 PMASK OUT BOTTOM ROW LENS 
STA FORT2 %e+e ANT RESTORE. 
gy 
>THIS SECTION CHECKS FOR WINNING PATTERN IN LEDS 
g 
LSk A ySHIFT RIT O OF PORT 1 INTO CARRY. 
BCC KEY IF NOT WIN FATTERN: GET NEXT MOVE 
LIA PORTIL sLOAR FORTL FOR WIN TEST 
CMF €2411101141 SCHECK FOR WIN PATTERN 
BNE KEY PNO WINs GET NEXT MOVE 


Fig. 5.3: Magic Square Program 
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WIN BLINK LETI’S EVERY 1/2 SEC: 4 TIMES 


ab Gp wp 


02443 AP OE LDA #14 

02463 &S5 00 STA TEMP §LOAD NUMBER OF BLINKS 

02483 A2 20 BLINK LNX #$20 sRELAY CONSTANT FOR «08 SEC 

O24A3 AO FF DELAY LOY #$FF yOUTER LOOF OF VARIABLE DELAY 
sROUTINEr WHOSE RELAY TIME: 
9IS 2554 * (CONTENTS OF X ON ENTER 

O24: EA DILY NOP 710 MICROSEC LOOF V 

O240% DO 06 BNE .+2 

O24F3 88 NEY 

02503 DO FA BNE [LY 

02523 CA iE xX 

0253: HO FS BNE DELAY 

0255: AD 01 AO LIA PORTI ‘GET FORTS ANT COMPLEMENT THEM 

02582 49 FF EOR #$FF 

O25A3; 80 OL AO STA FORTI 

O25: AR OO AOD LIA FORT2 

0260: 49 Ot EOR #1 

02623 BD 00 AD STA PORT2 

0265! C4 00 DEC TEMF ICOUNT DOWN NUMBER OF BLINKS 

02673 NO DIF BNE BLINK 900 AGAIN IF NOT DONE 

0249: FO AR REQ KEY sGET NEXT MOVE 


’ 
‘TABLE OF CODES USED TO COMPLEMENT LENS 
? 
T 


O26B3 1RF ABLE eHYT %00011011*%%00000000 

O26C; O00 

O26D: 07 »BYT 200000111 %200000000 

O26E; 00 

O26F? 36 oBYT %0011911022%00000000 

02702 00 

02713 A? *BYT £01001001 » 200000000 

0272: 00 

0273! BA eBYT 410111010%%00000000 

02742 00 

O2753 24 oRYT 2001001003 2%00000001 

0276: O1 

0277; 08 *BYT 411011000 s%00000000 

02782 00 

0279: CO eBYT 411000000 2%00000001 

O27A3 01 

O27B: BO +BYT %101100002Z00000001 

O27C%: O1 

SYMBOL TABLES 

GETKEY ©6100 T1Ct. A004 FORT 1 A001 
FORT2 A000 TEMF 0000 HIRKA ANOS 
DIRE AN02 START 0208 KEY 0216 
BLINK 0248 NELAY 0244 BLY 024C 
TABLE O26RB 


Fig. 5.3: Magic Square Program (Continued) 
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The data direction registers for Ports A and B of the VIA are con- 
figured for output to drive the LEDs: 


LDA #$FF 
STA DDRA 
STA DDRB 


The ‘‘random’’ numbers are then obtained by reading the value of 
timer 1 of the VIA and are used to provide a random pattern for the 
LEDs. (Two numbers provide 16 bits, of which 9 are kept.) 


START LDA TICL Get Ist number 
STA PORT] Use it 
LDA TICL Get 2nd number 
AND #01 Keep only position 0 
STA PORT2 Use it 


An explanation of the use of TICL has been presented in the 
previous chapter. The program then monitors the keyboard for the 
key stroke of the player. It will accept only inputs ‘‘0’’ through ‘‘9”’ 
and will reject all others: 


KEY JSR GETKEY 
CMP #0 Is key 0? 
BEQ START 
CMP #10 
BPL KEY Ifkey = 10 get another 


If the player has pressed key ‘‘0,’’ the program is restarted with a new 
LED display. If it is a value between ‘‘1’’ and ‘‘9’’ that is pressed, the 
appropriate change must be performed on the LED pattern. The key 
number will be used as an index to the table of complementation 
codes. Since the keys are labeled 1 through 9, the key number must 
first be decremented by 1 in order to be used as an index. Since the 
table contains double-byte entries, the index number must also be 
multiplied by 2. This is performed by the following three instructions: 


SEC 
SBC #1 Subtract 1 
ASL A Multiply by 2 
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Remember that a shift left is equivalent to a multiplication by 2 in the 
binary system. The resulting value is used as an index and stored in in- 
dex register X: 


TAX 


The LED pattern is stored in the Port A data registers. It will be com- 
plemented by executing an EOR instruction on Port 1, then repeating 
the process for Port 2: 


LDA PORT1 

EOR TABLE,X Complement Port1 
STA PORT1 

LDA PORT2 Same for Port2 

EOR TABLE + 1,X 

AND #01 Mask out unused bits 
STA PORT2 


Note that assembly-time arithmetic is used to specify the second byte 
in the table: 


EOR TABLE + 1,X 


Once the pattern has been complemented, the program checks for a 
winning pattern. To do so, the contents of Port 2 and Port 1 must be 
matched against the correct LED pattern. For Port 2, this is ‘‘0, 0, 0, 
0, 0, 0, 0, 1.’’ For Port 1, this is ‘‘1, 1, 1,0, 1, 1, 1, 1.’’ Bit O of Port 2 
happens presently to be contained in the accumulator and can be 
tested immediately after a right shift: 


LSRA Shift bit 0 of Port 2 
BCC KEY 


The contents of Port 1 must be explicitly compared to the appropriate 
pattern: 


LDA PORTI1 
CMP #% 11101111 
BNE KEY 
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To confirm the win, LEDs are now blinked on the board. TEMP is 
used as a counter variable; X is used to set the fixed delay duration. Y 
is used as a counter for the innermost loop. Each port is com- 
plemented after the delay has elapsed. 


LDA #14 
STA TEMP Load number of blinks 
BLINK LDX #$20 Delay constant for .08 sec 
DELAY LDY #$FF Outer loop of variable 
delay routine, whose delay 
time is 2556 x (Contents 
of X onentry) 10 us loop 
DLY NOP 
BNE .+2 
DEY 
BNE DLY 
DEX 
BNE DELAY 
LDA PORT! Get ports and complement 
them 
EOR #$FF 
STA PORTI1 
LDA PORT2 
EOR #1 
STA PORT2 
DEC TEMP Count down number of blinks 
BNE BLINK Do again if not done 
BEQ KEY Get next key 


SUMMARY 

This game of skill required a special table to perform the various 
complementations. The timer is used directly to provide a pseudo- 
random number, rather than a program. The LED pattern is stored 
directly in the I/O chip’s registers. 
EXERCISES 


Exercise 5-1: Rewrite the end of the program using a delay subroutine. 


Exercise 5-2: Will the starting pattern be reasonably random? 
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Exercise 5-3: Provide sound effects. 


Exercise 5-4: Allow the use of key ‘‘A’’ to perform a different change 
such as a total complementation. 


Exercise 5-5 (more difficult): Write a program which allows the com- 
puter to play and win. 


Exercise 5-6: Add to the previous exercise the following feature: 
record the number of moves played by the computer, then play against 
the computer. You must win in fewer moves. You may specify an 
identical starting pattern for yourself and the computer. In this case, 
you should start, then let the computer ‘“‘show you.’’ If the computer 
requires more moves than you do, you are either an excellent player, a 
lucky player, or you are a poor programmer. Perhaps you are using 
the wrong algorithm! 
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6. Simple Real Time Simulation 
(Spinner) 


INTRODUCTION 


This program will react in real time to an operator input. The game 
will operate at multiple levels of difficulty using more complex loop 
counters. 


THE RULES 


A light spins around the square formed by LEDs 1, 2, 3, 6, 9, 8, 7, 
and 4, in a counterclockwise fashion. 


ilies 
000 
loo ol 


The object of the game is to stop the light by hitting the key cor- 
responding to the LED at the exact time that the LED lights up. Every 
time that the spinning light is stopped successfully, it will start spin- 
ning at a faster rate. Every time that the player fails to stop the LED 
within 32 spins, the light will stop briefly on LED #4, then resume 
spinning at a slower pace. The expert player will be able to make the 
light spin faster and faster, until the maximum speed is reached. At 
this point, all the LEDs on the Games Board (LEDs | through 15) 
light up simultaneously. It is a win, and a new game is started. 

Each win is indicated to the player by a hesitation of the light on the 
LED corresponding to the key pressed. When a complete game is won, 
all LEDs on the Games Board will be lit. 
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This game can also be used to sharpen a player’s reflexes, or to test 
his or her reaction time. In some cases, a player’s reaction may be too 
slow to catch the rotating LED even at its slowest speed. In such a 
case, the player may be authorized to press two,or even three, con- 
secutive keys at once. This extends the player’s response time. For ex- 
ample, with this program, if the player would press keys 7, 8, and 9 
simultaneously, the light would stop if it was at any one of those posi- 
tions (7, 8, or 9). 


THE ALGORITHM 


The flowchart is presented in Figure 6.1. The game may operate at 
eight levels of difficulty, corresponding to the successive speeds of the 
‘‘blip’’ traveling with increased rapidity around the LED square. An 
8-bit counter register is used for two functions simultaneously. (See 
Figure 6.2.) The lower 3 bits of this register are used as the ‘‘blip- 
counter’’ and point to the current position of the light on the LED 
square. Three bits will select one of eight LEDs. The left-most 5 bits of 
this register are used as a ‘‘loop-counter’’ to indicate how many times 
the blip traverses the loop. Five bits allow up to 32 repetitions. LEDs 
are lit in succession by incrementing this counter. Whenever the blip- 
counter goes from ‘‘8’’ to ‘‘0,’’ a carry will propagate into the loop- 
counter, incrementing it automatically. Allocating the 8 bits of 
register Y to two different conceptual counters facilitates program- 
ming. Another convention could be used. 

Every time that an LED is lit, the keyboard is scanned to determine 
whether the corresponding key has been pressed. Note that if the key 
was pressed prior to the LED being lit, it will be ignored. This is ac- 
complished with an ‘‘invalid flag.’’ Thus, the algorithm checks to see 
whether or not a key was initially depressed and then ignores any fur- 
ther closures if it was. A delay constant is obtained by multiplying the 
difficulty level by four. Then, during the delay while the LED is lit, a 
new check is performed for a key closure if no key had been pressed 
at the beginning of this routine. If a key had been pressed at the begin- 
ning it will be treated as a miss, and the program will not check again 
to see if the key was pressed as the ‘‘invalid flag’’ will have been set. 

Every time the correct key is pressed during the delay while the LED 
is on (left branch of the flowchart in the middle section of Figure 
6.1), the value of the difficulty level is decremented (a lower difficulty 
number results in a higher rotation speed). For every miss on the part 
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of the player, the difficult, -alue is incremented wp to 15, resulting in 
a slower spin of the light. Once a difficulty level of UV has been reached, 
if a hit is recorded, all LEDs on the board will light to acknowledge 
the situation. 


THE PROGRAM 


Data Structures 


The program uses two tables. The KYTBL table stores the key 
numbers corresponding to the circular LED sequence: 1,2,3,6,9,8,7,4. 
It is located at memory addresses OB through 12. See the program 
listing in Figure 6.3. 

The second table, LTABLE, contains the required bit patterns 
which must be sent to the VIA’s port to illuminate the LEDs in se- 
quence. For example, to illuminate LED #1, bit pattern ‘‘000000001, 
or 01 hexadecimal, must be sent. For LED #2, the bit pattern 
**90000010’’ must be sent, or 02 hexadecimal. Similarly, for the other 
LEDs, the required pattern is: 04, 20, 00, 80, 40; OB in hexadecimal. 

Note that there is an exception for LED #9. The corresponding pat- 
tern is ‘‘0’’ for Port 1, and bit 0 of Port 2 must also be turned on. We 
will need to check for this special situation later on. 


Program Implementation 


Three variables are stored in memory page 0: 


DURAT Is the delay between two successive 
LED illuminations 

DIFCLT Is the ‘‘difficulty level’’ (reversed) 

DNTST Is a flag used to detect an illegal 


key closure when scanning the keys 


As usual, the program initializes the three required data direction 
registers: DDR1 on both Port A and Port B for the LEDs, and 
DDR3B for the keyboard: 


START LDA #$FF 
STA DDRIA 
STA DDRIB 
STA DDR3B 
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COUNTER = 0 


DIFFICULTY = 8 


USE BITS 0 — 2 OF 
COUNTER TO LOOK 
UP LED PATTERN IN 

TABLE, THEN DISPLAY 
PATTERN 


OUTPUT NUMBER OF 
KEY TO LOOK FOR 
(BITS 0-2 OF 
COUNTER) TO 
KEYBOARD 










SET INVALID FLAG 


DURAT = 128 


DELAY CONST = 


4X DIFFICULTY 
DELAY ACCORDING 
TO DELAY CONST 





Fig. 6.1: Spinner Flowchart 


CLEAR INVALID FLAG 
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NO INVALID 


FLAG SET? 


YES 
DURAT = DURAT — 1 
DIFFICULTY = 
DIFFICULTY — 1 
DURAT = 0? 
NO 
YES (MISS) 


YES COUNTER = 
PAUSE COUNTER + 1 


INCREMENT 
DIFFICULTY, MAKING 
SURE IT DOES NOT 
EXCEED 15 





Fig. 6.1: Spinner Flowchart (Continued) 
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LOOP BLIP 
COUNTER COUNTER 


Fig. 6.2: Dual Counter 
The difficulty level is set to 8, an average value: 


LDA #8 
STA DFCLT 


The keystrobe port is conditioned for input: 
STA DDR3A 


The Y register, to be used as our generalized loop-plus-blip-counter, is 
set to*‘0’’: 


NWGME LDY #0 
The key-down indicator is also set to ‘‘0’’: 


LOOP LDA #0 
STA DNTST 


LED #9 is cleared: 
STA PORTIB 


The lower 3 bits of the counter are extracted. They contain the blip- 
counter and are used as an index into the LED pattern table: 


TYA Y contains counter 
AND #$07 Extract lower 3 bits 
TAX Use as index 


The pattern is obtained from LTABL, using an indexed addressing 
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LINE # LOCc CODE LINE 

0002 0000 ; “SPINNER ’ 

0003 0000 sPROGRAM TO TEST REACTION TIME OF PLAYER. 

0004 0000 sBLIP OF LIGHT. SPINS ARQUND EDGE 

0005 9000 #OF 3X3 LED MATRIX» AND USER MUST PRESS 

0006 0000 $CORRESPONDING KEY. IF» AFTER A NUMBER OF 

9007 0000 3SFINSr CORRECT KEY HAS NOT BEEN PRESSED» 

0008 0000 $BLIP SPING SLOWER. IF CORRECT KEY HAS BEEN 
0009 0000 yPRESSED?e BLIP SPINS FASTER. ALL 

0010 00600 *LEDS LIGHT WHEN SUCCESSFUL KEYPRESS 

0011 90000 rOCCURS ON MAXIMUM SPEED. 

0012 0000 , 

0013 0000 71/0 3 

0014 0000 $ 

0015 0000 PORTIA = $A001 r*LEDS 1-8 

0016 0000 PORT1B = #A000 ryLEDS 6-15 

0017 90000 DDRIA = $A003 

0018 0000 DDRiB = #A0D02 

0019? 9000 PORT3A = $ACOl *KEY STROBE INPUT. 

0020 0000 PORTSB = #ACOO0 yKEY # OUTPUT, 

0021 06000 BDRSA = $ACOS 

0022 9000 DDR3B = $ACO2 

9023 0000 , 

0024 9000 *VARIABLE STORAGE? 

0025 0000 3 

0024 0000 x = $0 

0027 0000 ; 

0028 0000 DURAT *=K+1 FOUURATION OF INTER-MOVEMENT DELAY. 
0029 0001 DIFCLT x=x+1 #DIFFICULTY LEVEL. 

0030 0002 DNTST *=xX+1 ySET TO $01 IF KEY DOWN AT START 
0031 0003 7OF INTER-MOVEMENT DELAY. 

0032 0003 3 

0033 0003 ' $TABLE OF PATTERNS TO BE SENT TO LER 

0034 0003 §MATRIX AT EACH LOOP COUNT. 

0035 0003 sSET FOR CLOCKWISE ROTATION STARTING AT LED #1. 
0036 9003 3 

0037 0003 O01 LTABLE .BYTE $017$022$047%$2099007$801 $40; $08 
0037 0004 02 

0037 0005 04 

0037 0004 20 

0037 0007 00 

0037 0008 80 

0037 90009 40 

0037 O00A O08 

0038 OOO8 ’ 

0039 0008 *TABLE OF PATTERNS TO BE SENT TO KEYRBOARD 

0040 OOOB 7T0 TEST IF LEDS ARE ON AT EACH LOOF COUNT. 
0041 OOOB $ 

0042 OOOB O01 KYTBL BYTE 2292235shr9vr8r774 

0042 000C 02 

0042 OO0On O03 

0042 OO00E 04 

0042 O00F 09 

0042 0010 08 

0042 0011 907 

0042 0012 04 

0043 0013 ; 

0044 0013 yMAIN PROGRAM 

0045 oO013 3 

0046 0013 k = $200 

0047 0200 8 

0048 0200 Av? FF START LDA #$FF sSET I/O REGISTERS. 
0049 0202 8D 03 AD STA DDRIA 

0050 0205 8D 02 AO STA DDRIB 

0051 0208 8D 02 AC STA DDRIB 

0052 O20B A? OB LDA #8 

0053 o20D 85 O1 STA TtIFCLT *SET DIFFICULTY. 

0054 O20F 8s 03 AC STA DDRZA *>SET KEYSTROBE FORT. 
0053 0212 AO 00 NWGME LDY #0 ‘RESET LOOF/BLIf COUNTER. 
0056 0214 A? 00 LOOP LDA #0 

0057 02146 835 02 STA DNTST sCLEAR KEYDOWN INDICATOR. 
0058 0218 8D 00 AO STA PORTIB rCLEAR HI LED FORT. 
0OS? O21B 78 TYA yUSE LOWER 3 BITS OF MAIN CUUNTER 
0060 0O21€ 29 07 AND #%07 *AS INDEX TO FIND LED FATTERN 
0041 O21E AA TAX ¢IN TABLE OF PATTERNS. 
0062 O21F BS 03 LOA LTABLE +X GET PATTERN FOR LED TO 


Fig. 6.3: Spinner Program 
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0063 0221 *BE TURNED ON. 

0064 0221 8D 01 AO STA PORTIA §STORE IN LET! PORT. 

0065 0224 DO 05 BNE CHECK ¥IF PATTERN <> O» SKIF. 

0066 90226 AX O01 LIA #1 sFATTERN=0r SO SET HI KIT. 

0067 0228 8D 00 AO STA PORTIE 

0068 O22B BS OR CHECK LDA KYTEL»X GET KEY# TO TEST FOR. 

0067 O220 sl 00 AC STA PORTSRE ISTORE IN KEYPORT. 

0070 0230 2€ O1 AC BIT FORTS3SA sSTROBE HI? 

0071 0233 30 04 BMI DELAY *IF NOTe SKIF, 

0072 0235 AY O1 INVALD LDA #01 #STOBE HI: SET KEY DOWN MARKER. 
0073 0237 85 02 STA DWNTST 

0074 0237 A? BO DELAY LDA #¢$80 9GET # OF LOOP CYCLES (DELAY LENGTH) 
0075 O23B a5 00 STA DURAT 

0076 O23D AS O1 DL1 LDA DIFCLT sMULTIFLY DIFFICULTY COUNTER 
0077 O23F OA ASL A sKY FOUR TO TETERMINE DELAY 
0078 0240 OA ASL A *LENGTH. 

0079 0241 AA TAX 

0080 0242 26 62 DL2 ROL DNTST *DELAY ACCORDING TO DIFCLT. 
0061 0244 6&4 02 ROR DINTST 

0082 0244 CA nex 

00863 0247 DO F9? ENE [IL2 *LOOP ‘TIt COUNT = 0 

0084 0249 AS G2 LDA DNTST *GET KEY DOWN FLAG. 

0085S 0248 0 OS ENE NOTST vIF KEY WAS DOWN AT BEGINNING OF 
0086 0241 *DELAY» DON’T TEST IT. 

00s7 O24 2C 01 AC BIT PORTSA ‘CHECK KEY STROBE. 

00oss 0250 10 19 BFL HIT rKEY HAS CLOSED BURING BELAY: HIT. 
0089 0252 Cé 90 NOTST DEC BURAT sCOUNT DELAY LOGOF DOWN. 

0090 0254 BO E? BNE DL1 sLOOP IF NOT O. 

0091 0256 C8 INY sINCREMENT MAIN SFIN COUNTER. 
0092 0257 DO BB BNE LOOP sIF 32 LOOFS NOT NONEr TO NEXT LOOP 
0093 0259 Aé O01 LUX DIFCLT §NO HITS THIS TIMEs MAKE NEXT 
0094 0258 rEASIER. 

0095 O25B E8 INX 

0096 O25C 8A TXA PMAKE SURE DIFFICULTY DOES NOT 
00977 O25D C9 19 CMF #16 sEXCEED 15 

0098 O25F DO 02 BNE OK 

0099? 0261 AD OF LBA #15 

0100 0263 85 01 OK STA DIFCLT 

0101 0265 20 80 02 JSR WAIT sPAUSE A BIT. 

0102 0268 4C€ 12 02 JMP NWGME 9START NEW ROUND. 

0103 O26B 20 80 02 HIT JSR WAIT *PAUSE A BIT. 

0104 O26—E Cé 01 DEC DIFCLT sMAKE NEXT GAME HARDER. 

0105 0270 DO Ad BNE NWGME ?IF DIFFICULTY NOT O (HARDEST) » 
0106 0272 yFLAY NEXT GAME. 

0107 0272 AD FF LDA #$FF yPLAYER HAS MADE IT ¥C TOF 
0108 02774 #8 O01 AO STA FORTIA POIFFICULTY LEVEL» LIGHT ALL LENS. 
0109 0277 8 00 AQ STA FORTIB 

0110 027A 20 80 02 JSR WAIT yPAUSE A RIT. 

0111 O27D 4€ 00 02 JMP START ‘FLAY ANOTHER GAME. 

0112 0280 5 

0113 0280 rSUBROUTINE “WAIT” 

0114 0280 *SHORT TELAY. 

0115 0280 7 

0116 0280 AO FF WATT LLY #$FF 

©1117 O282 A2 FF LFt LUX #$FF 

0118 0284 6&6 00 LP2 ROR DURAT 

0119 0286 26 00 ROL BURAT 

0120 0288 66 00 KOK DURAT 

0122 O28A 26 99 ROL DURAT 

0122 O28C CA REX 

0123 90280 DO FS BNE LP2 

0124 O28F 88 DEY 

0125 0290 DO FO BNE LPI 

0126 O292 60 RTS 

0127 0293 « ENTi 


SYMBOL TABLE 
SYMBOL VALUE 


CHECK 022R DDR1IA AN0S DORIE A002 BURZA ACOS 


DDRSB ACO2 DELAY 0239 DIFCLT 0001 DL1 O23 
DL2 0242 DNTST 0002 DURAT 0000 HIT 026k 
INVALD 0235 KYTBL OOOB LOOF 0214 LF 1 0282 
LF2 0284 LTABLE 0003 NOTST 0252 NWGME 0212 
OK 0263 PORTIA A001 FORT1IE AD00 FORT3A ACO1L 
PORT 3B ACOO START 0200 WAIT 0280 


END OF ASSEMBLY 
Fig. 6.3: Spinner Program (Continued) 
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mechanism with register X, and this pattern is output on Port IA to 
light up the appropriate LED: 


LDA LTABLE, X Get pattern 
STA PORTIA Use it to light up LED 


As we indicated in the previous section, an explicit check must be 
made for the pattern ‘‘0,’’ which requires that bit 0 of Port B be 
turned on. This corresponds to LED #9: 


BNE CHECK Was pattern = 0? 
LDA #1 If not, set LED #9 
STA PORTIB 


Once the correct LED has been lit, the keyboard must be inspected to 
determine whether the player has already pressed the correct key. The 
program only checks the key number corresponding to the LED being 
lit: 


CHECK LDA KYTBL,X X contains correct pointer 
STA PORT 3B Select correct key 
BIT PORT3A Strobe hi? 
BMI DELAY If not, skip 


If the corresponding key is down (a strobe high on Port 3A is 
detected), the key-down flag, DNTST, is set to ‘‘1’’: 


INVALD LDA #01 
STA DNTST 


This is an illegal key closure. It will be ignored. A delay to keep the 
LED lit is implemented by loading a value in memory location 
DURAT. This location is used as a loop-counter. It will be 
decremented later on and will cause a branch back to location DL1 to 
occur: 


DELAY LDA #380 
STA DURAT 


The difficulty counter, DIFCLT, is then multiplied by four. This is ac- 
complished by two successive left shifts: 
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DL1 LDA DIFCLT 
ASL A 
ASL A 
TAX 


The result is saved in index register X. It will determine the delay 
length. The lower the ‘‘difficulty-level,’’ the shorter the delay will be. 
The delay loop is then implemented: 


DL2 ROL DNTST 
ROR DNTST 
DEX 
BNE DL2 Loop til count = 0 


The key-down flag, DNTST, is then retrieved from memory and 
tested. If the key was down at the beginning of this routine, the pro- 
gram branches to location NOTST. Otherwise, if a closure is detected, 
a hit is reported and a branch occurs to location HIT: 


LDA DNTST 

BNE NOTST 

BIT PORT3A Check key strobe 
BPL HIT 


At NOTST, the external delay loop proceeds: the value of DURAT is 
decremented and a branch back to location DLI1 occurs, unless 
DURAT decrements to ‘‘0.’’ Whenever the delay decrements to ‘‘0’’ 
without a hit, the main counter (register Y) is incremented by 1. This 
results in advancing the blip-counter (lower three bits of register Y) to 
the next LED. However, if the blip-counter was pointing to LED #4 
(the last one in our sequence), the loop-counter (upper 5 bits of 
register Y) will automatically be incremented by 1 when the blip- 
counter advances. If the value 32 is reached for the loop-counter, the 
value of register Y after incrementation will be ‘‘0’’ (in fact, an 
overflow will have occurred into the carry bit). This condition is tested 
explicitly: 


NOTST DEC DURAT 
BNE DLI1 Loop if not 0 
INY Increment counter 
BNE LOOP 32 loops? 
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Once the Y register has overflowed, i.e., 32 loops have been executed, 
the difficulty value is increased, resulting in a slower spin: 


LDX DIFCLT No hits. Make it easier 
INX 


The maximum difficulty level is 15, and this is tested explicitly: 


TXA Only A may be compared 
CMP #16 
BNE OK 
LDA 415 Stay at 15 maximum 
OK STA DIFCLT 


Finally, a brief pause is implemented: 
JSR WAIT 
and a new spin is started: 
JMP NWGME 
In the case of a hit, a pause is also implemented: 
HIT JSR WAIT 


then the game is made harder by decrementing the difficulty count 
(DIFCLT) 


DEC DIFCLT 


The difficulty value is tested for ‘‘0’’ (fastest possible spin). If the ‘‘0’’ 
level has been reached, the player has won the game and all LEDs are 
illuminated: 


BNE NWGME If not 0, play next game 


LDA #$FF It is a win 
STA PORTIA Light up 
STA PORT1B 


The usual pause is implemented, and a new game is started: 
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JSR WAIT 
JMP START 


The pause is achieved with the usual delay subroutine called ‘‘WAIT.”’ 
It is a classic, two-level nested loop delay subroutine, with additional 
do-nothing instructions inserted at address 0286 to make it last longer: 


WAIT LDY #$FF 
LPI LDX #$FF 
LP2 ROR DURAT 
ROL DURAT 
ROR DURAT 
ROL DURAT 
DEX 
BNE LP2 
DEY 
BNE LP! 
RTS 


SUMMARY 


This program implemented a game of skill. Multiple levels of diffi- 
culty were provided in order to challenge the player. Since human 
reaction time is slow, all delays were implemented as delay loops. For 
efficiency, a special double-counter was implemented in a single register: 
the blip counter—loop counter. 


EXERCISES 


Exercise 6-1: There are several ways to “‘cheat’’ with this program. 
Any given key can be vibrated rapidly. Also, it is possible to press any 
number of keys simultaneously, thereby massively increasing the 
odds. Modify the above program to prevent these two possibilities. 


Exercise 6-2: Change the rotation speed of the light around the LEDs 
by modifying the appropriate memory location. (Hint: this memory 
location has a name indicated at the beginning of the program.) 


Exercise 6-3: Add sound effects. 
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(Slot Machine) 


INTRODUCTION 


This program simulates an actual electro-mechanical machine and 
operates in real time. It performs a complex score evaluation using indexed 
addressing techniques as well as special data structures to facilitate and 
expedite the process. 


THE RULES 


This program simulates a Las Vegas-type slot machine. The rota- 
tion of the wheels on a slot machine is simulated by three vertical rows 
of lights on LED columns 1-4-7, 2-5-8, and 3-6-9. The lights ‘‘rotate’’ 
around these three columns, and eventually stop. (See Figure 7.1.) The 
final light combination representing the player’s score is formed by 
LEDs 4-5-6, i.e., the middle horizontal row. | 

At the beginning of each game, the player is given eight points. The 
player’s score is displayed by the corresponding LED on the Games 
Board. At the start of each game, LED #8 is lit, indicating this initial 
score of 8. 

The player starts the slot machine by pressing any key. The lights 
start spinning on the three vertical rows of LEDs. Once they stop, the 
combination of lights in LEDs 4, 5, and 6 determines the new score. If 
either zero or one LED is lit in this middle row, it is a lose situation, 
and the player loses one point. If two LEDs are lit in the middle row, 
the player’s score is increased by one point. If three LEDs are lit in the 
middle row, three points are added to the player’s score. 

Whenever a total score of zero is obtained, the player has lost the 
game. The player wins the game when his or her score reaches 16 
points. Everything that happens while the game is being played pro- 
duces tones from the machine. While the LEDs are spinning, the 
speaker crackles, reinforcing the feeling of motion. Whenever the 
lights stop rotating, a tone sounds in the speaker, at a high pitch if it is 
a win situation, or at a low pitch if it is a lose situation. In particular, 
after a player takes his or her turn, if there are three lights in the mid- 
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WHEEL 1 WHEEL 2 WHEEL 3 


Fig. 7.1: The Slot Machine 


dle row (a win situation), the speaker will go beep-beep-beep in a high 
pitch, to draw attention to the fact that the score is being incremented 
by three points. Whenever the maximum of 16 points is reached, the 
player has obtained a ‘‘jackpot.’’ At this point all the LEDs on the 
board will light up simultaneously, and a siren sound will be generated 
{in ascending tones). Conversely, whenever a null score is reached, a 
siren will be sounded in descending tones. 

Note that, unlike the Las Vegas model, this machine will let you win 
frequently! Good luck. However, as you know, it is not as much a 
matter of luck as it is a matter of programming (as in Las Vegas ma- 
chines). You will find that both the scoring and the probabilities can 
be easily modified through programming. 


A TYPICAL GAME 


The Games Board initially displays a lit LED in position 8, in- 
dicating a starting score of 8. At this point the player should select and 
press a key. For this example let’s press key 0. The lights start spin- 
ning. At the end of this spin, LEDs 4, 5, and 9 are lit. (See Figure 7.2.) 
This is a win situation and one point will be added to the score. The 
high-pitch tone sounds. LED #9 is then lit to indicate the total of the 8 
previous points plus the one point obtained on this spin. 
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000 
®@ o-« 
00 @ 


Fig. 7.2; A Win Situation 





Key 0 is pressed again. This time only LED 5 in the middle row is lit 
after the spin. The score reverts back to 8. (Remember, the player 
loses 1 point from his or her score if either zero or only one LED in the 
middle row is lit after the spin.) 

Key 0 is pressed again; this time LEDs 5 and 6 light up resulting ina 
score of nine. | 

Key 0 is pressed again. LED 4 is lit at the end of the spin, and LED 8 
lights up again. 

Key 0 is pressed. LED 6 is lit. The score is now 7, etc. 


THE ALGORITHM 


The basic sequencing for the slot machine program is shown in the 
flowchart in Figure 7.3. First, the score is displayed, then the game is 
started by the player’s key stroke and the LEDs are spun. After this, 
the results are evaluated: the score is correspondingly updated and a 
win or lose situation 1s indicated. 

The LED positions in a column are labeled 0, 1, 2, from the top to bot- 
tom. LEDs are spun by sequentially lighting positions 0, 1, 2, and then 
returning to position 0. The LEDs continue to spin in this manner and 
their speed of rotation diminishes until they finally come to a stop. 
This effect is achieved by incrementing the delay between each suc- 
cessive actuation of an LED within a given column. A counter-register 
is associated with each ‘‘wheel,’’ or column of three LEDs. The initial 
contents of the three counters for wheels 1, 2, and 3 are obtained from 
a random number generator. In order to influence the odds, the ran- 
dom number must fit within a programmable bracket called (LOLIM, 
HILIM). The value of this counter is transferred to a temporary 
memory location. This location is regularly decremented until it 
reaches the value ‘‘0.’’ When the value 0 is reached, the next LED on 


101 


ADVANCED 6502 PROGRAMMING 


102 


START 
INITIAL 
SCORE = 8 


KEY STROKE 


DISPLAY SCORE 
























SIGNAL WIN 






SIGNAL LOSE 





Fig. 7.3: Slots Flowchart 
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the ‘‘wheel”’ is lit. In addition, the original counter contents are in- 
cremented by one, resulting in a longer delay before lighting up the 
next LED. Whenever the counter overflows to 0, the process for that 
wheel stops. Thus, by using synchronous updating of the temporary 
memory locations, the effect of asynchronously moving LED “‘blips’’ 
is achieved. When all LEDs have stopped, the resulting position 1s 
evaluated. 

The flowchart corresponding to this DISPLAY routine is shown in 
Figure 7.4. Let us analyze it. In steps1, 2, and 3 the LED pointers are 
initialized to the top row of LEDs (position 0). The three counters 
used to supply the timing interval for each wheel are filled with num- 
bers from a random number generator. The random number is selected 
between set limits. Finally, the three counters are copied into the tem- 
porary locations reserved for decrementing the delay constants. 


Let us examine the next steps presented in Figure 7.4: 

4. The wheel pointer X is set at the right-most column: X = 3. 

5. The corresponding counter for the current column (column 3 
this time) is tested for the value 0 to see if the wheel has stopped. 
It is not 0 the first time around. 

6,7. The delay constant for the column of LEDs determined by 
the wheel pointer is decremented, then it is tested against the 
value 0. If the delay is not 0, nothing else happens for this 
column, and we move to the left by one column position: 

16. The column pointer X is decremented: X = X — 1 

17. X is tested against zero. If X is zero, a branch occurs to 
step 5. Every time that X reaches the value zero, the same 
situation may have occurred in all three columns. All 
wheel counters are, therefore, tested for the value zero. 

18. If all counters are zero, the spin is finished and exit oc- 
curs. If all counters are not zero, a delay is implemented, 
and a branch back to (4) occurs. 


Back to step 7: 


7. If the delay constant has reached the value zero, the next 
LED down in the column must be lit. 
8. The LED pointer for the wheel whose number is in the wheel 


pointer is incremented. 

9, The LED pointer is tested against the value 4. If 4 has not 
been reached, we proceed; otherwise, it is reset to the value 1. 
(LEDs are designated externally by positions 1, 2, and 3 from 
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DISPLAY START 
LED POINTERS = 0 


FILL COUNTERS WITH 








2 | RANDOM NUMBERS 
BETWEEN LOLIM 
& HILIM 
COPY COUNTERS TO 
3 | CORRESPONDING 


DELAY CONSTANT 
LOCATIONS 





DELAY 
CONSTANT 
(X) = 0? 


Fig. 7.4: DISPLAY Flowchart 
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CED POINTER (X) yee 


= 4? 
NO 
LED POINTER (X) 
=1 


19 | TEMP = 3XLED 
POINTER(X) 


LTMSK (X) = 
LIGHTABLE (TEMP, X) 


12 INCREMENT 
COUNTER (X) 


17 
COPY COUNTER (X) 
INTO DELAY 
CONSTANT (X) NO 


OUTPUT [(LTMSK1) 18 
OR (LTMSK2) OR 
(LTMSK3}] TO LEDs 


11 


16 X=X-1] 







ALL COUNTERS 
= 0? 


15] TOGGLE SPEAKER 
DELAY ABIT DONE: RETURN 





YES 


Fig. 7.4: DISPLAY Flowchart (Continued) 
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top to bottom. The next LED to be lit after LED #3 is LED 
#1.) 

10,11. The LED must be lit on the board, and a table LIGHTABLE 
is utilized to obtain the proper pattern. 

12. The counter for the appropriate wheel is incremented. Note 
that it is not tested against the value zero. This will occur only 
when the program moves to the left of wheel 1. This 1s done 
at location 18 in the flowchart, where the counters are tested 


for the value zero. 
13. The new value of the counter is copied into the delay constant 


location, resulting in an increased delay before the next LED 
actuation. 

14. The current lighting patterns of each column are combined 
and displayed. 

15. As each LED is lit in sequence, the speaker is toggled (ac- 


tuated) . 
16. As usual, we move to the column on the left and proceed as 
before. 
Let us go back to the test at step 5 in the flowchart: 
ae Note that whenever the counter value for a column is zero, 


the LED in that column has stopped moving. No further ac- 
tion is required. This is accounted for in the flowchart by the 
arrow to the right of the decision box at 5: the branch occurs 
to 16 and the column pointer is decremented, resulting in no 
change for the column whose counter was zero. 
Next, the evaluation algorithm must evaluate the results once all 
LEDs have stopped and then it must signal the results to the player. 
Let us examine it. 


The Evaluation Process 


The flowchart for the EVAL algorithm is shown in Figure 7.5. The 
evaluation process is also illustrated in Figure 7.6, which shows the 
nine LEDs and the corresponding entities associated with them. Refer- 
ring to Figure 7.6, X is a row-pointer and Y is a column- or wheel- 
pointer. A value counter is associated with each row. It contains the 
total number of LEDs lit in that row. This value counter will be con- 
verted into a score according to specific rules for each row. So far, we 
have only used row 2 and have defined a winning situation as being 
one in which two or three LEDs were lit in that row. However, many 
other combinations are possible and are allowed by this mechanism. 
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Exercises will be suggested later for other winning patterns. 

The total for all of the scores in each row is added into a total called 
SCORE, shown at the bottom right-hand corner of Figure 7.6. 

Let us now refer to the flowchart in Figure 7.5. The wheel- or col- 
umn pointer Y is set initially to the right-most column: Y = 3. 

2. The temporary counters are initialized to the value zero. 

3. Within the current column (3), we need only look at the row 
which has a lit LED. This row is pointed to by LED- 
POINTER. The corresponding row value is stored in: 

X = LED POINTER (Y) 

4. Since an LED is lit in the row pointed to by X, the value 
counter for that row is incremented by one. 

Assuming the LED situation of Figure 7.7, the second value counter 

has been set to the value 1. 

5. The next column is examined: Y = Y — 1. 

If Y is not 0, we go back to (3); otherwise the evaluation process 

may proceed to its next phase. 


Exercise 7-1: Using the flowchart of Figure 7.5, and using the example 
of Figure 7.7, show the resulting values contained in the value counters 
when we finally exit from the test at (6) in the flowchart of Figure 7.5. 


The actual number of LEDs lit in each row must now be trans- 
formed into a score. The SCORETABL is used for that purpose. If the 
scoring rules contained in this table are changed, they will completely 
modify the way the game is played. 

The score table contains four byte-long numbers per row. Each 
number corresponds to the score to be earned by the player when 0, 1, 
2, or 3 LEDs are lit in that row. The logical organization of the score 
table is shown in Figure 7.8. The entries in the table correspond to the 
score values which have been selected for the program presented at 
the beginning of this chapter. Any combination of LEDs in rows 1 or 
3 scores 0. Any combination of 2 LEDs in row 2 scores 1, but, three 
LEDs score 3. Practically, this means that the score value of row 1 is 
obtained by merely using an indexed access technique with the number 
of LEDs lit as the index. For row 2, a displacement of four must be 
added for table access. In row 3, an additional displacement of four 
must be added. Mathematically, this translates to: 


SCORE = SCORETABL[(X —- 1) X 4+ 1+ Y] 
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EVAL 
START 
4 | VALUE COUNTERS, 
SCORTMP =:0 8 TEMP = 
(X- 1X44 
















@ = SCORTABL 
(VALUE COUNTER 
(X), TEMP) 


X = LED POINTER (Y) 9 






INCREMENT VALUE 
COUNTER (X) 10 SCORTMP = 
SCORTMP + Q 
Y=Y~1 


D> | 2 
VES 
a 


Fig. 7.5: EVAL Flowchart 


REAL TIME SIMULATION 


13 


SCORTMP = 0? 


INCREMENT SCORE 4 DECREMENT SCORE 


YES 









SIGNAL GAME 
WON WITH RISING 
WARBLE, LIT LEDs 


YES 





RETURN: 
SCORTMP = NEW GAME RETURN: 
SCORTMP — 1 


NEXT SPIN 


21 | SHOW NEW SCORE, 
SOUND LOW TONE 
22 
NO 


YES 


SCORTMP = 
ORTM 0? 23 SOUND 
FALLING TONE 
RETURN: RETURN: 
NEXT SPIN NEW GAME 


Fig. 7.5: EVAL Flowchart (Continued) 


109 


ADVANCED 6502 PROGRAMMING 


VALUE 
COUNTER 


TOTAL =] SCORE 





VALUE 
COUNTER 








Fig. 7.7: An Evaluation Example 


where X is the row number and Y is the number of LEDs lit for that 
row. Since this technique allows each of the three rows to generate a 
score, the program must test the value counter in each row to obtain 
the total score. 

This is accomplished by steps 7 and 8: the row pointer is initialized 
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NUMBER LEDs LIT 


0 3 


Fig. 7.8: The Score Table 


to 3, and a score table displacement pointer is set up: 


9. 


TEMP = (X - 1) x 441 
Next, the value of the score is obtained from the table: 


Q = SCORTABL (value counter (X), TEMP) 


The value of that row’s score is obtained by accessing the score 
table indexed by the number of LEDs lit, contained in the value counter 
for that row, plus a displacement equal to TEMP. The intermediate 
score is obtained by adding this partial score to any previous value: 


10. 
ll. 


12. 


13. 


14. 
15. 


SCORTMP = SCORTMP + Q 

Finally, the row number is decremented, and the process is 
repeated until X reaches the value 0. 

Whenever X reaches the value 0, the score for this spin has 
been computed and stored in location SCORTMP. 

At this point, the score computed above (SCORTMP) is ex- 
amined by the program, and two possibilities exist: if the 
SCORTMP is 0, a branch occurs to 20, where the game score 
is decremented. If SCORTMP is not 0, the game score will be 
increased by the score for this spin — SCORTMP. Let us 
follow this path first. 

The total game score is incremented by one. 

It is then tested for the maximum value of 16. 
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16. If the maximum score of 16 is reached in step 15, a special 
audible and visual signal is generated to reward the player. A 
new game may be started. 

17. If 16 is not reached in step 15, the updated game score is 
shown to the player, accompanied by a high-pitched tone. 

18. The amount by which the game score must be increased, 
SCORTMP, is decremented. 

19. If SCORTMP is not zero, more points must be added to the 
game score, and a branch occurs to 14. Otherwise, the player 
may enter the next spin. 

Let us now follow the other path from position thirteen on the 

flowchart, where the total score had been tested: 

20. Thescore for this spin is 0, so the game score is decremented. 

21. It is displayed to the player along with a low tone. 

22. The new score is tested for the minimum value 0. If this 
minimum value has been reached, the player has lost. Other- 
wise, the player may keep playing. 

23. A descending siren-type tone is generated to indicate the loss, 
and the game ends. 


THE PROGRAM 
Data Structures 


Two tables are used by this program: 1) the score table is used to 
compute a score from the number of LEDs lit in each row — this has 
already been described; 2) the LTABLE is used to generate the ap- 
propriate code on the I/O port to light the specified LED. Each entry 
within this table contains a pattern to be OR’ed into the I/O register to 
light the specified LED. 

Vertically, in the memory, the table entries correspond to the first 
column, the second column, and then the third column of LEDs. 
Looking at the program on lines 39, 40, and 41, the rows of digits cor- 
respond respectively to the columns of LEDs. For example, the third 
entry in the table, i.e., 64 decimal, or 40 hexadecimal (at address 
001C) corresponds to the third LED in the first column on the Games 
Board, or LED 7. 


Page Zero Variables 


The following variables are stored in memory: 
— TEMP is a scratch location - 
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LINE @ LOC CODE LINE 

0002 0000 SSLOT MACHINE SIMULATOR PROGRAM. 

0003 0000 SPRESS ANY KEY TO START ’SPIN’. 

0004 0000 §$SCORE DETERMINED BY ARRAY ‘SCORTB’. 

0005 0000 #8 POINTS INITIAL SCOREr ONE POINT PENALTY 

0006 0000 sFOR EACH BAD SPIN. 

0007 0000 ; 

0008 06000 x = 60 

0009 00090 TEMP a=k+1 S$TEMPORARY STORAGE. 

9010 0001 SCORTP *=x+1 5TEMPORARY SCORE STORAGE. 

0011 0002 SCORE x=k+1 +SCORE. 

0012 0003 BUR *2K+1 *DURATION OF TONES. 

0013 0004 FREQ x=%+1 *FREQUENCY OF TONES. 

0014 0005 SPEEDS a=x+3 sSPEEDS OF REVOLUTION FOR LEDS 
0015 0008 3IN COLUMNS 

0014 0008 INDX x=K+3 3DELAY COUNTERS FOR LED REVOLUTIONS. 
0017 OOOB INCR aok+3 PPOINTERS FOR LED POSITIONS? 

0018 O0O0E *USED TO FETCH PATTERNS OUT OF TABLES. 

0019 O00E LTMSK k=k+3 sPATTERNS FOR LIT LEDS 

0020 00611 VALUES *=4+3 gNO. OF LIT LEDS IN EACH ROW. 
0021 0014 RND K=K+6 #SCRATCHPAD FOR RND # GEN. 

0022 O01A § 

0023 901A 61/0 

0024 901A 3 

0025 dO01A PORTIA = 8A001 sVIA#1 PORT A I/O REG (LEDS) 
0026 O01A DDRIA = $A003 #VIAG1 PORT A DATA DIRECTION REG. 
0027 014A PORT1IB = $A000 *>VIAS1 PORT B 1/0 REG. (LEDS) 
0028 OO1A DDRiB = $A002 #VIAG1 PORT B DATA DIRECTION REG. 
0029 O01A PORT3SB = 8ACOO *VIASS PORT B I/O REG. (SPKR) 
0030 O01A DDR3B = $ACOZ2 5VIA¢3 PORT B DATA DIRECTION REG. 
0031 O01A T1CL = $A004 

0032 OQO1A U 

0033 OO01A s ARRAYS 

0034 OO1A j 

0035 O01A *ARRAY OF PATTERNS TO LIGHT LEDS. 

0034 O01A sARRAY ROWS CORRESPONE TO COLUMNS OF LED 

0037 OO1A FARRAYs AND COLUMNS TO ROWS. FOR EXAMPLE» THIRD 

0038 O01A sBYTE IN ROW ONE WILL LIGHT LED 7. 

0039 O01A OF LTABLE .BYTE 1°8%64 


0039 O0O01B 08 

0039 O01C 40 

0040 OO1D 02 oBYTE 29167128 
0040 O0O1E 10 

0040 OOLF 80 

0041 06020 04 eBYTE 423220 
0041 0021 20 

0041 9022 900 


0042 0023 vARRAY OF SCORES RECEIVED FOR CERTAIN 
0043 0023 *PATTERNS OF LIT LEDS. 

0044 90023 *ROWS CORRESPOND TO ROWS IN LED ARRAY, 
0045 0023 ICOLUMNS CORRESPOND TO NUMBER OF LEDS 
0044 0023 sLIT IN THAT ROW. 

‘0047 0023 I.E.» 3 LEDS IN MIDDLE ROW IS 3 PTS. 
0048 0023 00 SCORTB «BYTE 0207020 


0048 0024 00 

0048 0025 00. 

0048 0026 00 

0042 9027 900 BYTE OrO9193 
0049 0028 960 

0049 0029 O1 

0047 OO2A OF 
0050 O0O2B 00 eBYTE Or02070 
0030 o002C 90 

0050 O002D 00 

0030 OOC2E 00 

00351 O02F ? 


P 
6052 002F pRKREK HAIN PROGRAM 4S 
0053 002F ; 
0054 002F GETKEY = $1006 
0055 002F x = $200 
0036 6200 A? FF LDA @SFF ‘SET UP FORTS. 


Fig. 7.9: Slot Machine Program 
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03 


00 
00 


00 


AO 


AO 


AO 
AC 


START 


KEY 


3 


sSUBROUTINE TO DISPLAY 


STA 
STA 
STA 
LDA 
STA 
LDA 
STA 
TAY 
J&R 
JSR 
JSR 
JSR 
LDA 
BNE 
BEQ 


DIRIA 
DDURiB 
DRRSE 
TACL 
RND+1 
#8 
SCORE 


LIGHT 
GETKEY 
DISPLY 
EVAL 
SCORE 
KEY 
START 


*GET SEED FOR RANDOM @ GEN. 
sINITIAL SCORE IS EIGHT. 
#SHOW INITIAL SCORE 


yANY KEY FRESSED STARTS PROGRAM. 
¥SPIN WHEELS 
7CHECK SCORE AND SHOW IT 


GET NEXT FLAY. 
KESTART. 


*IF SCORE <> Or 
yIF SCORE = Or 


‘“SFINNING’ LEDS,» 


sFIND COMBINATION TO USEI TO DETERMINE SCORE. 
$ 


LOLIM 
HILIM 
SPDPRM 
DISPLY 


LORND 
GETRND 


UPDATE 
UFDTLP 


NORST 


SPDUPD 


LEDUPD 


OFFLD9 


LIA 
ORA 
ORA 
STA 
LDA 


INCR 
INCR+1 
INCR+2 
#2 
RANDOM 
#HILIM 
GETRND 
#LOLIM 
GETRND 
INDX»+Y 
SFEEDS»Y 


GETRNO 
#2 
SPEEDS»+X 
NXTUFD 
INDX»X 


NXTUPD 


sRESET FOINTERS. 


sSET INDEX FOR 3 ITERATIONS. 
sGET RANDOM #, 

#TOO LARGE? 
*IF SO, GET 
3T00 SMALL? 
*IF SOr GET ANOTHER. 
*SAVE IN LOOP INDEXES AND 
yLQ0P SPEED COUNTERS. 


ANOTHER. 


sGET NEXT RND #. 

ySET INDEX FOR THREE ITERATIONS. 
91S SPEEDCX>=0? 

¢IF SOr DO NEXT UFDATE. 
*DECREMENT LOOF INDEX(X) 


*IF LOOPINDEX(X) <> Or 


3DO NEXT UPDATE. 


INCR s X 


#3 
NORST 
#9 
INCR +X 
TEMP 


A 


TEMP 
INCR # X 


LTABLEsY 
LTMSK 9X 
SPEEDS »X 


SFEEDS»X 
INDX +X 
#0 
PORT1B 
LTMSK+2 
OF FLD9 
#01 
PORT1B 
#0 
LTMSK 
LTMSK+1 
FORT1A 
PORTSB 


sINCREMENT FOINTER(X). 


sPOINTER = 37 

¥IF NOT SKIP... 

§ee+RESET OF POINTER TO O. 
sRESTORE FOINTER(X). 


+yMULTIPLY X BY 3 FOR ARRAY ACCESS. 


sADD COLUMN@® TO FTR(X) FOR ROWF. 
*XFER TO Y FOR INIEXING. 

7GET PATTERN FOR LED. 

§STORE IN LIGHT MASK(X), 
§INCREMENT SPEEDCX). 


sRESTORE. 

r*RESET LOOF INDEX(X), 

sUPDATE CIGHTS. 

*RESET LED 89 

*COMBINE PATTERNS FOR OUTFUT. 
7IF MASK#3 <> O- LED 9 OFF, 
sTURN ON LED 9. 


yRESET A SO PATTERN WON’T 
*>COMBINE REST OF FATTERNS. 


BE BAD. 


»>SET LEGHTS, 
*TOGGLE SFEAKER. 


Fig. 7.9: Slot Machine Program (Continued) 


00 
11 
12 
13 
Ol 
02 


OR 
11 


F9 
02 


AC 


00 


03 


03 
03 


AO 


NXTUPD DEX 


WAIT DEY 


LDA 


#6FF 
PORTS8 


UPRTLPF 
#SPDPRM 


WAIT 
SPEEDS 


SLEDS STOFPED. 


ORA 
OGRA 
BNE 


LDA 
STA 
JSR 
RTS 


SPEEDS+t1 
SPEEDS+2 
UPDATE 

*OF UPDATES. 
#$FF 

DUR 

DELAY 


REAL TIME SIMULATION 


*DECREMENT X FOR NEXT UFTATE. 
sIF X>=Or DO NEXT UPDATE. 
sDELAY A BIT TO SLOW 
*FLASHING OF LEDS. 


*CHECK FF ALL COLUMNS OF 


¢IF NOT» DO NEXT SEQUENCE 


*+DELAY TO SHOW USER PATTERN. 


sALL LEDS STOPPED? IVGNE. 


gy 

#SUBROUTINE TO EVALUATE PRODUCT OF SFIN+s AND 
#DISPLAY SCORE W/ TONES FOR WINr LOSE» WIN+ENDGAME + 
SAND LOSEtENDGAME. 


t 
HITONE = $20 
LOTONE = $FO 


EVAL LDA 
STA 
STA 
STA 
STA 
LDY 


CNTLP LDX 
INC 
DEY 
BPL 
LDX 


SCORLF TXA 


WIN INC 


WINEND LDA 


#0 

VALUES 
VALUES#1 
VALUESt2 
SCORTF 

#2 

;TO 

INCRrY 
VALUES» X 


CNTLP 
#2 SET INDEX 


sOF £00 


rROW 
a 
a 


VALUES » X 
SCORTB+Y 


SCORTF 
PACCUMULATED 
SCORTP 


SCORLF 

#$40 SET UF 

DUR 

SCORTF 

LOSE 

SCORE 

SCORE 

#16 

WINEND 

LIGHT 

#HITONE 

TONE 

DELAY 

SCORTF 
FOVERALL 

WIN 


sRESET VARIABLES. 


s#SET INDEX Y FOR 3 ITERATIONS 
COUNT # OF LEDS ON IN EACH ROW, 
3CHECK FOINTERCY) + ADRING 

sUP # OF LEDS ON IN EACH ROW. 


#LOOF IF NOT DONE. 
X FOR 3 ITERATIONS. 
P TO FIND SCORE. 
PMULTIPLY INDEX BY FOUR FOR ARRAY 
ACCESS. 


7ADN # OF LEDS ON IN ROW(X) TO... 

*+ ARRIVE AT COLUMN ALIDRESS IN ARRAY. 
sUSE AS INDEX 

*GET SCORE FOR THIS SFIN. 


,ALD TO ANY FREVIGUS SCORES 
IN THIS CLOOF'. 
PRESTORE 


*LOOF IF NOT LONE 
DURATIONS FOR TONES. 


sGET SCORE FOR THIS SFIN. 

yIF SCORE IS Ory LOSE A FOINT. 
SRAISE OVERALL SCORE BY ONE. 
*GET SCORE 

*WIN W/ 16 FITS? 

rYES ¢ WIN+ENDGAME. 

*SHOW SCORE. 

*PLAY HIGH REEF, 


*SHORT DELAY. 
*IECREMENT SCORE YO BE ADDED TO... 


SCORE BY ONE. 
*LOOPF IF SCORE XFER NOT COMPLETE. 


sDONEs RETURN TO MAIN FROGRAM. 
yTURN ALL LES ON TO SIGNAL WIN. 
sSET FREQ PARM FOR RISING WARELE. 


*CLEAR TO FLAG RESTART. 


Fig. 7.9: Slot Machine Program (Continued) 
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0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
02186 
0219 
0220 
0221 
0222 
0223 
0224 
0228 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0262 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
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LDA #4 
STA DUR *#SHORT DURATION FOR INDIVIDUAL 
sREEFS IN WARBLE. 
RISE LDA TEMF *>GET FREQUENCY.... 
03 JSR TONE 3+eeeFOR BEEF. 
DEC TEMP s;NEXT BEEF WILL BE HIGHER. 
BNE RISE 7DO NEXT BEEF IF NOT DONE. 
RTS *RETURN FOR RESTART. 
LOSE DEC SCORE *IF SFIN RAIts SCORE=SCORE-1 
LIYY SCORE *SHOW SCORE 
03 JSR LIGHT 
LUA #LOTONE sFLAY LOW LOSE TONE. 
03 JSR TONE 
LDY SCORE sGET SCORE TO SEE .eoe 
BEQ LOSEND ,IF GAME IS OVER. 
RTS 9IF NOTs RETURN FOR NEXT SPIN. 
LOSENDTD LIA #0 3SET TEMF FOR USE AS FREQ FARM 
STA TEMF 3IN FALLING WARBLE. 
AO STA FORTIA s+CLEAR LED #1, 
LDA #4 
STA DUR 
FALL LDA TEMF 
O3 JSR TONE sPLAY BEEP. 
INC TEMF rNEXT TONE WILL BRE LOWER. 
BNE FALL 
RTS sRETURN FOR RESTART. 
? 
?PVARIABLE LENGTH DELAY SUBROUTINE. 
STELAY LENGTH = (20446*CCONTENTS OF BURI+10) US. 
g 
DELAY LDY BUR 3GET DELAY LENGTH. 
IL1 LOX #¢FF >SET CNTR FOR INNER 2040 US. LOOF 
DL2 RNE k+2 PWASTE TIME. 
DEX *>DECREMENT INNER LOOF CNTR. 
BNE BL2 sLOOF “TILL INNER LOOF DONE, 
DEY *DECREMENT OUTER LOOP CNTR. 
BNE Li $LOOP “TILL DONE. 
RTS S5RETURN. 
gy 
sSUBROUNTINE TO LIGHT LEZ CORRESPONDING 
TO THE CONTENTS OF REGISTER Y ON ENTERING. 
’ 
LIGHT LDA #0 sCLEAR REG. A FOR BIT SHIFT, 
STA TEMF #CLEAR OVERFLOW FLAG, 
AO STA FORTIA sCLEAR LOW LEIS. 
AO STA FORTIE *CLEAR HIGH LEDS. 
CPY #15 sCODE FOR UNCONNECTED KIT? 
BEQ k+t3 ?IF SOs NO CHNG. 
DEY *DECREMENT TO MATCH. 
SEC sSET BIT TG BE SHIFTED HIGH, 
LTSHFT ROL A >SHIFT BIT LEFT. 
BCC LTCC $EIF CARRY SET? OVERFLOW HAS 
sOCCURREI INTO HIGH BYTE. 
LOX #$FF *SET OVERFLOW FLAG. 
STX TEMF 
ROL A +MOVE BIT QUT OF CARRY. 
LTCC DEY $ONE LESS BIT TO BE SHIFTED. 
BEL LTSHFT +SHIFT AGAIN IF NOT DONE. 
LOX TEMF GET OVERFLOW FLAG. 
BNE HIRBYTE sIF FLAG<>0r OVERFLOW? A CONTAINS 
sHIGH BYTE. 
AO LORYTE STA PORTIA s7STORE A IN LOW OREER LEDS. 
RTS *RETURN. 
a0 HIBYTE STA FORTIE *>STORE A IN HIGH ORDER LEDS, 
RTS PRETURN,. 
9 
TONE GENERATION SUBROUTINE. 
? 
TONE STA FREQ 
LIA #$FF 
AC STA PORTIEB 
LIA #00 


Fig. 7.9: Slot Machine Program (Continued) 
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0274 O36 AS& O03 LDX DUR 
0275 O36F A4 04 FL2 LIY FREQ 
0276 0371 868 FL1 DEY 

0277 O372 18 CLC 

0278 0373 90 00 BCC *+2 
0279 0375 DO FA BNE FL1 
0280 0377 49 FF EOR #$FF 
0281 0379 8D 900 AC STA FORTSB 
0282 037C CA DEX 

0283 0375 NO FO BNE FL2 
0284 O37F 60 RTS 

0285 0380 , 

0286 0380 sRANDOM NUMBER GENERATOR SUBROUTINE. 
0287 0380 , 

0288 0380 38 RANDOM SEC 

0289 0381 AS 15 LDA RNItt+1 
0290 0383 465 18 ADC RND+4 
0291 O385 465 19 ADC RND+S 
0292 0387 85 14 STA RND 
0293 0389 A2 04 LIX #4 
0294 O3B8B RS 14 RNDSH LUA RNIIlsX 
0295 O36D 975 15 STA RND+1+7X 
0296 O38F CA DEX 

0297 03970 10 F9 RPL RNOSH 
0298 O392 60 RTS 

0299 0393 »ENT 


SYMBOL TABLE 
SYMBOL VALUE 


CNTILP 0283 DORIA A003 DIRIB AV02 DIRSB ACO2 


DELAY 0330 DISPLY 0227 DL1i 0332 DL2 0334 
BUR 0003 EVAL O2A7 FALL 0326 FL2 0371 
FL2 O36F FREQ 0004 GETKEY 0100 GETRNi 0231 
HIBYTE 0340 HILIM 0087 HITONE 0020 INCR 0008 
INDX 0008 KEY 0218 LDRNID 022F LEDUPE 0270 
LIGHT 0330 LOBYTE 035C LOLIM OOSA LOSE 030A 
LOSEND 0318 LOTONE OOF O LTABLE OO01A LTCC 0355 


LTMSK OOOE LTSHFT o34n NORST 0258 NXTUPD 028F 
OFFLD9? 0280 PORT1A A001 PORTIE A000 FORTSE ACO0O0 
RANDOM 0380 RISE 0300 RND 0014 RNINSH 038K 
SCORE 0002 SCORLP 02BC SCORTB 0023 SCORTP 0002 
SPDPRM 0050 SPDUPD 0269 SPEEDS 0005 START 0210 
TICL A004 TEMP 0000 TONE 0364 UPDATE 0245 
UPDTLP 0247 VALUES 0012 WAIT 0294 WIN 0206 
WINEND O2EE 

END OF ASSEMBLY 


Fig. 7.9: Slot Machine Program (Continued) 


— SCORTP is used as a temporary storage for the score gained or 
lost on each spin 

— SCORE is the game score 

— DUR and FREQ specify the usual constants for tone generation 

~—— SPEEDS (3 locations) specify the revolution speeds for the three 
columns 

— INDX (3 locations): delay counters for LED revolutions 

— INCR (3 locations): pointers to the LED positions in each column 
used to fetch patterns out of tables 

— LTMSK @ locations): patterns indicating lit LEDs 

— VALUES (3 locations): number of LEDs lit in each column 

— RND (6 locations): scratch-pad for random number generator. 


117 


ADVANCED 6502 PROGRAMMING 


Program Implementation 


The program consists of a main program and two main subroutines: 
DISPLY and EVAL. It also contains some utility subroutines: DELAY 
for a variable length delay, LIGHT to light the appropriate LED, 
TONE to generate a tone, and RANDOM to generate a random 
number. 

The main program is stored at memory locations 200 and up. As 
usual, the three data-direction registers for Ports A and B of VIA#1 
and for Port B of VIA#3 must be conditioned as outputs: 


LDA #$FF 

STA DDRIA 
STA DDRIB 
STA DDR3B 


As in previous chapters, the counter register of timer | is used to pro- 
vide an initial random number (a seed for the random number generator). 
This seed is stored at memory location RND + 1, where it will be used 
later by the random number generation subroutine: 


LDA T1ICL 
STA RND + 1 


On starting a new game, the initial score is set to 8. It is established: 


START LDA #8 
STA SCORE 


and displayed: 


TAY Y must contain it 
JSR LIGHT 


The LIGHT subroutine is used to display the score by lighting up the 
LED corresponding to the contents of register Y. It will be described 
later. 

The slot machine program is now ready to respond to the player. 
Any key may be pressed: 


KEY JSR GETKEY 
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As soon as a key has been pressed, the wheels must be spun: 
JSR DISPLY 


Once the wheels have stopped, the score must be evaluated and 
displayed with the accompanying sound: 


JSR EVAL 
If the final score is not ‘‘0,’’ the process is restarted: 


LDA SCORE 
BNE KEY 


and the user may spin the wheels again. Otherwise, if the score was 
“9.” a new game is Started: 


BEQ START 


This completes the body of the main program. It is quite simple 
because it has been structured with subroutines. 


The Subroutines 


The algorithms corresponding to the two main subroutines DISPLY 
and EVAL have been described in the previous section. Let us now 
consider their program implementation. 


DISPLY Subroutine 


Three essential subroutine parameters are LOLIM, HILIM, and 
SPDPRM. For example, lowering LOLIM will result in a longer spin- 
ning time for the LEDs. Various other effects can be obtained by vary- 
ing these three parameters. One might be to include a win almost every 
time! Here LOLIM = 90, HILIM = 134, SPDPRM = 80. 

Memory location INCR is used as a pointer to the current LED 
position. It will be used later to fetch the appropriate bit pattern from 
the table, and may have the value 0, 1, or 2 (pointing to LED positions 
1, 2, or 3). The three pointers for the LEDs 1n each column are stored 
respectively at memory locations INCR, INCR + 1, and INCR + 2. 
They are initialized to 0: 
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DISPLY LDA #0 
STA INCR 
STA INCR + 1 
STA INCR + 2 


Note that in the previous examples (such as Figure 7.7), in order to 
simplify the explanations, we have used pointers X and Y to repre- 
sent the values between | and 3. Here, X and Y will have values rang- 
ing between 0 and 2 to facilitate indexing. The wheel pointer is set to 
the right-most wheel: 


LDRND LDY #2 
An initial random number is obtained with the RANDOM subroutine: 
GETRND JSR RANDOM 


The number returned by the subroutine is compared with the accep- 
table low limit and the acceptable high limit. If it does not fit within 
the specified interval, it is rejected, and a new number is obtained until 
one is found which fits the required interval. 


CMP #4HILIM Too large? 
BCS GETRND If so, get another 
CMP #LOLIM Too small? 
BCC GETRND If so, get another 


The valid random number is then stored in the index location INDX 
and in the SPEEDS location for the current column. (See Figure 7.10.) 


STA INDX,Y 
STA SPEEDS,Y 


The same process is carried out for column 1 and column 0: 


DEY 
BPL GETRND Get next random # 


Once all three columns have obtained their index and speed, a new 
iteration loop is started, using register X as a wheel counter: 
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Fig. 7.10: Spinning the Wheels 


UPDATE LDX #2 Set counter for 3 iterations 
The speed is tested for the value 0: 


UPDTLP LDY SPEEDS,X Is speed (X) = 0? 
BEQ NXTUPD If so, update next column 


As long as the speed is not 0, the next LED in that column will have to 
be lit. The delay count is decremented: 


DEC INDX,X Decrement loop, index (X) 
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If the delay has not decremented to 0, a branch occurs to NXTUPD 
which will be described below. Otherwise, if the delay counter INDX 
is decremented to 0, the next LED should be lit. The LED pointer is 
incremented with a possible wrap-around if it reaches the value 3: 


BNE NXTUPD If loop index(X) < >0, do 
next update — 
LDY INCR,X Inc pointer 


INY 

CPY #3 Pointer = 3? 

BNE NORST If not, skip 

LDY #0 Reset to 0 
NORST STY INCR,X Restore pointer (X) 


The new value of the LED pointer is stored back into INCR for the 
appropriate column. (Remember that within the UPDATE routine, X 
points at the column.) In order to light the appropriate LED, a bit pat- 
tern must be obtained from LTABLE. Note that LTABLE (and also 
SCORTB) is treated conceptually, as if it was a two-dimensional array, 
i.e., having rows and columns. However, both LTABLE and 
SCORTB appear in memory as a contiguous series of numbers. Thus, 
in order to obtain the address of a particular element, the row number 
must be multiplied by the number of columns and then added to the 
column number. 

The table will be accessed using the indexed addressing mode, with 
register Y used as the index register. In order to access the table, X 
must first be multiplied by 3, then the value of INCR (i.e., the LED 
pointer) must be added to it. 

Multiplication by 3 is accomplished through a left shift followed by 
an addition, since a left shift is equivalent to multiplication by 2: 


STX TEMP Multiply X by 3 
TXA | 

ASL A Left shift 

CLC 

ADC TEMP Plus one 


The value of INCR is added, and the total is transferred into register Y 
so that indexed addressing may be used. Finally, the entry may be 
retrieved from LTABLE: 
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ADC INCR,X 
TAY 
LDA LTABLE,Y Get pattern for LED 


Once the pattern has been obtained, it is stored in one of three 
memory locations at address LTMSK and following. The pattern is 
stored at the memory location corresponding to the column currently 
being updated, where the LED has ‘‘moved.”’ The lights will be turned 
on only after the complete pattern for all three columns has been im- 
plemented. As a result of the LED having moved one position within 
that column, the speed constant must be incremented: 


STA LTMSK,X 
SPDUPD LDY SPEEDS,X 

INY 

STY SPEEDS,X 


The index is set so that it is equal to the new speed: 


STY INDX,X 


Note that special handling will now be necessary for LED #9. The 
pattern to be displayed on the first eight LEDs was stored in the 
LTABLE. The fact that LED #9 must be lit is easily recognized by the 
fact that the pattern for column #3 shows all zeroes; since one LED 
must be lit at all times within that column, it implies that LED #9 will 
be lit: 


LEDUPD LDA #40 
STA PORTIB Reset LED 9 


Next, the pattern for the third column is obtained from the location 
where it had been saved at LTMSK + 2. It is tested for the value of 0: 


LDA LTMSK + 2 
BNE OFFLD9 


If this pattern is 0, then LED #9 must be turned on: 


LDA #01 
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STA PORTIB 


Otherwise, a branch occurs to location OFFLD9, and the remaining 
LEDs will be turned on. The pattern contained in the accumulator 
which was obtained from LTMSK + 2, is successively OR’ed with the 
patterns for the second and first columns: 


LDA #0 
OFFLD9 ORA LTMSK 
ORA LITMSK + 1 


At this point, A contains the final pattern which must be sent out in 
the output port to turn on the required LED pattern. This is exactly 
what happens: 


STA PORTIA 
At the same time, the speaker is toggled: 


LDA PORT3B 
EOR #$FF 
STA PORT3B 


It is important to understand that even though only the LED for one 
of the three columns has been moved, it is necessary to simultaneously 
turn on LEDs in all of the columns or the first and second columns 
would go blank! 

Once the third column has been taken care of, the next one must be 
examined. The column pointer X is therefore decremented, and the 
process is continued: 


NDTUPD DEX 
BPL UPDTLP If X >= 0 do next update 


Once the second and the first columns have been handled, a delay is 
implemented to avoid flashing the LEDs too fast. This delay is con- 
trolled by the speed parameter SPDPRM: 


LDY #SPDPRM 


WAIT DEY 
BNE WAIT 
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VALUES 





Fig. 7.11: Evaluating the End of A Spin 


Once this complete cycle has been executed, the speed location for 
each column is checked for the value 0. If all columns are 0, the spin is 
finished: 


LDA SPEEDS 
ORA SPEEDS + 1 
ORA SPEEDS + 2 
BNE UPDATE 


Otherwise, a branch occurs at the location UPDATE. If all LEDs 
have stopped, a pause must be generated so that the user may see the 
pattern: 


LDA #$FF 
STA DUR 
JSR DELAY 


and exit occurs: 


RTS 
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Exercise 7-2: Note that the contents of the three SPEEDS locations 
have been OR’ed to test for three zeroes. Would it have been equivalent 
to add them together? 


EVAL Subroutine 


This subroutine is the user output interface. It computes the score 
achieved by the player and generates the visual and audio effects. The 
constants for frequencies for the high tone generated by a win situation 
and the low tone generated by a lose situation are specified at the 
beginning of this subroutine: 


The method used to compute the number of LEDs lit per row has been 
discussed and shown in Figure 7.7. The number of LEDs lit for each 
row is initially reset to 0: 


EVAL LDA #0 
STA VALUES 
STA VALUES + 1 
STA VALUES + 2 


The temporary score is also set to 0: 


STA SCORTP 


Index register Y will be used as a column pointer, and the number of 
LEDs lit in each row will be computed. The number of the LED lit for 
the current column is obtained by reading the appropriate INCR en- 
try. See the example in Figure 7.11. The value contained in each of the 
three locations reserved for INCR is a row number. This row number 
is stored in register X, and is used as an index to increment the ap- 
propriate value in the VALUES table. Notice how this is accomplished 
in just two instructions, by cleverly using the indexed addressing feature 
of the 6502 twice: 

CNTLP LDY #2 3 iterations 

LDX INCR,Y 
INC VALUES,X 
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Once this is done for column 2, the process is repeated for columns 1 
and 0: 


DEY 
BPL CNTLP 


Now, another iteration will be performed to convert the final numbers 
entered in the VALUES table into the actual scores as per the 
specifications of the score table, SCORTB. Index register X is used as 
a row-pointer for VALUES and SCORTB. 


LDX #2 


Since the SCORTB table has four one-byte entries per row level, in 
order to. access the correct byte within the table the row number must 
first be multiplied by 4, then the corresponding ‘‘value’’ (number of 
LEDs lit) for that row must be added to it. This provides the correct 
displacement. The multiplication by 4 is implemented by two suc- 
cessive left shifts: 


SCORLP TXA 
ASL A 
ASLA 


The number presently contained in the accumulator is equal to 4 times 
the value contained in X, i.e., 4 times the value of the row-pointer. To 
obtain the final offset within the SCORTB table, we must add to that 
the number of LEDs lit for that row, i.e., the number contained in the 
VALUES tables. This number is retrieved, as usual, by performing an 
indexed addressing operation: 


CLC 
ADC VALUES,X Column address in array 


This results in the correct final offset for accessing SCORTB. 

The indexed access of the SCORTB table can now be performed. 
Index register Y is used for that purpose, and the contents of the ac- 
cumulator are transferred to it: 


TAY 
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The access is performed: 


LDA SCORTB,Y Get score for this spin 


The correct score for the number of LEDs lit within the row pointed to 
by index register X 1s now contained in the accumulator. The partial 
score obtained for the current row is added to the running total for all 
rows: 


CLC 
ADC SCORTP Total the scores 
STA SCORTP Save 


The row number is then decremented so that the next row can be ex- 
amined. If X decrements from the value 0, i.e., becomes negative, we 
are done; otherwise, we loop: 


DEX 
BPL SCORLP 


At this point, a total score has been obtained for the current spin. 
Either a win or a lose must be signaled to the player, both visually and 
audibly. In anticipation of activating the speaker, the memory loca- 
tion DUR is set to the correct tone duration: 


LDA #3$60. 
STA DUR 


The score 1s then examined: if 0, a branch occurs to the LOSE routine: 


LDA SCORTP 
BEQ LOSE 


Otherwise, it is a win. Let us examine these two routines. 


WIN Routine 


The final score for the user (for all spins so far) is contained in 
memory location SCORE. This memory location will be incremented 
one point at a time and checked every time against the maximum value 
16. Let us do it: 
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WIN INC SCORE 
LDY SCORE 
CPY #16 


If the maximum value of 16 has been reached, it is the end of the game 
and a branch occurs to location WINEND: 


BEQ WINEND 


Otherwise, the score display must be updated and a beep must be 
sounded: 


JSR LIGHT 


The LIGHT routine will be described below. It displays the score to 
the player. Next, a beep must be sounded. 


LDA #HITONE 
JSR TONE 


The TONE routine will be described later. 
A delay is then implemented: 


JSR DELAY 


then the score for that spin is decremented: 
DEC SCORTP 


and checked against the value 0. If it is 0, the scoring operation Is com- 
plete; otherwise, the loop is reentered: 


BNE WIN 
RTS 


WINEND Routine 


This routine is entered whenever a total score of 16 has been 
reached. It is the end of the game. All LEDs are turned on 
simultaneously, and a siren sound with rising frequencies is activated. 
Finally, a restart of the game occurs. 
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All LEDs are turned on by loading the appropriate pattern into Port 
1A and Port 1B: 


LDA #$FF 
STA PORTIA Turn on all LEDs 
STA PORTIB 


Variables are reinitialized: the total score becomes 0, which signals to 
the main program that a new game must be started, the DUR memory 
location is set to 4 to control the duration of time for which the beeps 
will be sounded, and the frequency parameter is set to ‘‘FF’’ at loca- 
tion TEMP: 


STA TEMP Freq. parameter 
LDA #0 

STA SCORE Clear for restart 
LDA #4 

STA DUR Beep duration 


The TONE subroutine is used to generate a beep: 


RISE LDA TEMP Get frequency 
JSR TONE Generate beep 


The beep frequency constant is then decremented, and the next beep is 
sounded at a slightly higher pitch: 


DEC TEMP 
BNE RISE 


Whenever the frequency constant has been decremented to 0, the siren 
is complete and the routine exits: 


RTS 
LOSE Routine 


Now let us examine what happens in the case of a lose situation. The 
events are essentially symmetrical to those that have been described 
for the win. 

In the case of a loss, the score needs to be updated only once. It is 
decremented by I: 
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LOSE DEC SCORE 
The lowered score is displayed to the user: 


LDY SCORE 
JSR LIGHT 


An audible tone is generated: 


LDA #LOTONE 
JSR TONE 


The final value of the score is checked to see whether a ‘‘0’’ score has 
been reached. If so, the game is over; otherwise, the next spin is 
started: 


LDY SCORE 
BEQ LOSEND 
RTS 


Let us look at what happens when a ‘‘0”’’ score is reached (LOSEND). 
A siren of decreasing frequencies will be generated. All LEDs will go 
blank on the board: 


LOSEND LDA #0 
STA TEMP 
STA PORTIA Clear LED #1 


The beep duration for each frequency is set to a value of 4, stored at 
memory location DUR: 


LDA #4 
STA DUR 


The beep for the correct frequency is then generated: 


FALL LDA TEMP 
JSR TONE Play beep 


Next, the frequency constant is increased by 1, and the process is 
restarted until the TMP register overflows. 
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INC TEMP Next tone will be lower 
BNE FALL 
RTS 


This completes our description of the main program. Let us now ex- 
amine the four subroutines that are used. They are: DELAY, LIGHT, 
TONE, and RANDOM. 


DELAY Subroutine 


This subroutine implements a delay; the duration of the delay is set 
by the contents of memory location DUR. The resulting delay length 
will be equal to (2046 x DUR + 10) microseconds. The delay is im- 
plemented using a traditional two-level, nested loop structure. The 
inner-loop delay is controlled by index register X, while the outer-loop 
delay is controlled by index register Y, which is initialized from the 
contents of memory location DUR. Y is therefore initialized: 


DELAY LDY DUR 


The inner loop delay is then implemented: 


DLI LDX #$FF 

DL2 BNE * +2 Waste time 
DEX Inner loop. counter 
BNE DL2 Inner loop 


And, finally, the outer loop is implemented: 
DEY 
BNE DL1 
RTS 


Exercise 7-3: Verify the exact duration of the delay implemented by 
the DELAY subroutine. 


LIGHT Subroutine 


This subroutine lights the LED corresponding to the number con- 
tained in register Y. Remember that the fifteen LEDs on the Games 
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Board are numbered externally from 1 to 15 but are connected to bits 0 
to 7 of Port 1A and 0 to 7 of Port 1B. Thus, if a score of 1 must be 
displayed, bit 0 of Port [A must be turned on. Generally, bit N of Port 
1A must be turned on when N is equal to the score minus one. However, 
there is one exception. To see this, refer to Figure 1.4 showing the 
LED connections. Notice that bit 6 of Port 1B 1s not connected to any 
LEDs. Whenever a score of fifteen must be displayed, bit 7 of Port 1B 
must be turned on. This exception will be handled in the routine by 
simply not decrementing the score when it adds up to fifteen. 

The correct pattern for lighting the appropriate LED will be created 
by shifting a ‘‘1’’ into the accumulator at the correct position. Other 
methods will be suggested in the exercise below. Let us first initialize: 


LIGHT LDA #0 
STA TEMP 
STA PORTIA 
STA PORTIB 


We must first look at the situation where the score contained in Y is 
15 and where we do nothing (no shift): 


CPY #15 Code for uncorrected bit? 
BEQ *+3 If so, no change 


For any other score, it is first decremented, then the shift is per- 
formed: 


DEY Decrement to internal code 
SEC Set bit to be shifted 
LISHFT ROL A 


The contents of the accumulator were zeroed in the first instruc- 
tion of this subroutine. The carry is set to the value 1, then shifted into 
the right-most position of A. (See Figure 7.12.) This process will be 
repeated as many times as necessary. Since we must count from 1 to 
14, or 0 to 13, an overflow will occur whenever the ‘‘1’’ that is rotated 
in the accumulator ‘‘falls off’’ the left end. As long as this does not 
happen, the shifting process continues, and a branch to location 
LTCC is implemented: 


BCC LIFCC 
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7 0 


i: 00000 0 0 Pu 
0 

TT 000000 0 1 ce AFTER 1 ROTATION 
0 


7 0000001 0 uo AFTER 2 ROTATIONS 
0 


A 000000 0 0 ca AFTER 9 ROTATIONS 
eeu Kins 
Fig. 7.12: Creating the LED Pattern 


However, if the ‘‘1’’ bit does fall off the left end of the accumulator, 
the value ‘‘FF’’ is loaded at memory location TEMP to signal this oc- 
currence. Remember that the value was cleared in the second instruc- 
tion of the LIGHT subroutine. 


LDX #$FF 
STX TEMP 


The ‘‘1”’ bit is then moved from the carry into the right-most position 
of the accumulator. Later, the value contained in memory location 
TEMP will be checked, and this will determine whether the pattern 
contained in the accumulator is to be sent to Port 1A or to Port 1B. 
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The shifting process continues. The counter is decremented, and, if 
it reaches the value ‘‘0,’’ we are done; otherwise, the process is 
repeated: 


ROL A 
LTCC DEY 
BPL LTSHFT 


Once the process is completed, the value of memory location TEMP is 
examined. If this value is ‘‘O,’’ it indicates that no overflow has oc- 
curred and Port 1A must be used. If this value is not ‘‘0,’’ i.e., it is 
‘FF,’ then Port 1B must be used: 


LDX TEMP Get overflow flag 
BNE HIBYTE 
LOBYTE STA PORTIA A sent to low LEDs 
RTS Return 
HIBYTE STA PORTIB A sent to high LEDs 
RTS 
TONE Subroutine 


This subroutine generates a beep. The frequency of the beep is 
determined by the contents of the accumulator on entry; the duration 
of the beep is set by the contents of the memory location DUR. This 
has already been described in Chapter 2. 


RANDOM Subroutine 


This is a simple random number generator. The subroutine has 
already been described in Chapter 3. 


Exercise 7-4: Suggest another way to generate the correct LED pattern 
in the accumulator, without using a sequence of rotations. 


Game Variations 


The three rows of LEDs supplied on the Games Board may be inter- 
preted in a way that is different from the one used at the beginning of 
this chapter. Row | could be interpreted as, say, cherries. Row 2 could 
be interpreted as stars, and row 3 could be interpreted as oranges. 
Thus, an LED lit in row | at the end of a spin shows a cherry, while 
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two LEDs in row 3 show two oranges. The resulting combination is 
one cherry and two oranges. The scoring table used in this program 
can be altered to score a different number of points for each combina- 
tion, depending upon the number of cherries, oranges, or stars present 
at the end of the spin. It becomes simply a matter of modifying the 
values entered into the scoring table. When new values are entered in- 
to the scoring table a completely different scoring result will be im- 
plemented. No other alterations to the program will be needed. 


SUMMARY 


This program, although simple in appearance, is relatively complex 
and can lead to many different games, depending upon the evaluation 
formula used once the lights stop. For clarity, it has been organized into 
separate routines that can be studied individually. 
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INTRODUCTION 


A stack technique 1s used to accumulate information. It is compared 
to the use of scratch locations. 


THE RULES 


The object of this game is to recognize and duplicate a sequence of 
lights and sounds which are generated by the computer. Several varia- 
tions of this game, such as ‘‘Simon’’ and ‘‘Follow Me’’ (manufacturer 
trademarks*), are sold by toy manufacturers. In this version, the player 
must specify, before starting the game, the length of the sequence to be 
recognized. The player indicates his or her length preference by press- 
ing the appropriate key between 1 and 9. At this point the computer 
generates a random sequence of the desired length. It may then be 
heard and seen by pressing any of the alphabetic keys (A through F). 

When one of the alphabetic keys is pressed, the sequence generated 
by the program is displayed on the corresponding LEDs (labeled 1 
through 9) on the Games Board, while it is simultaneously played 
through the loudspeaker as a sequence of notes. While this is happen- 
ing, the player should pay close attention to the sounds and/or lights, 
and then enter the sequence of numbers corresponding to the sequence 
he or she has identified. Every time that the player presses a correct 
key, the corresponding LED on the Games Board lights up, indicating 
a success. Every time a mistake is made, a low-pitched tone is heard. 

At the end of the game, if the player has guessed successfully, all 
LEDs on the board will hght up and a rising scale (succession of notes) 
is played. If the player has failed to guess correctly, a single LED will 
light up on the Games Board indicating the number of errors made, 
and a descending scale will be played. 

If the player guessed the series correctly, the game will be restarted. 
Otherwise, the number of errors will be cleared and the player will be 
given another chance to guess the series. 


***Follow Me’’ is a trademark of Atari, Inc., ‘‘Simon’’ is a trademark of Milton Bradley Co. 
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At any time during a game, the player may press one of the 
alphabetic keys that will allow him or her to hear the sequence again. 
All previous guesses are then erased, and the player starts guessing 
again from the beginning. 

Two LEDs on the bottom row of the LED matrix are used to com- 
municate with the player: 

LED 10 (the left-most LED) indicates ‘‘computer ready — enter the 
length of the sequence desired.”’ 

LED 11 lights up immediately after the player has specified the 
length of the sequence. It will remain lit throughout the game and it 
means that you should ‘‘enter your guess.”’ 

At this point, the player has three options: 

1. To press a key corresponding to the number in the sequence that 
he or she is attempting to recognize. 

2. To press key 0. This will result in restarting the game. 

3. To press keys A through F. This will cause the computer to play 
the sequence again, and will restart the guessing sequence. 


Variations 


The program provides a good test for your musical abilities. It is 
suggested that you start each new game by just listening to the se- 
quence as it is played on the loudspeaker, without looking at the LEDs. 
This is because the LEDs on the Games Board are numbered, and it is 
fairly easy to remember the light sequence simply by memorizing the 
numbers. This would be too simple. The way you should play it is to 
start with a one-note sequence. If you are successful, continue with a 
two-note sequence, and then with a three-note sequence. Match your 
skills with other players. The player able to recognize the longest se- 
quence is the winner. Note that some players are capable of recogniz- 
ing a nine-note sequence fairly easily. 

After a certain number of notes are played (e.g., when more than 
five notes are played), in order to facilitate the guessing you may 
allow the player to look at the LEDs on the Games Board. Another 
approach might be to allow the player to press one of the alphabetic keys 
at any time in order to listen to the sequence again. However, you may 
want to require that the player pay a penalty for doing this. This could 
be achieved by requiring that the player recognize a second sequence 
of the same length before trying a longer one. This means that if, for 
example, a player attempts to recognize a five-note sequence but 
becomes nervous after making a mistake and forgets the sequence, 
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that player will be allowed to press one of the alphabetic keys and hear 
the sequence again. However, if the player is successful on the second 
attempt, he or she must then recognize another five-note sequence 
before proceeding to a six-note one. 

You can be even tougher and specify that any player is allowed a 
replay of the stored pattern a maximum of two, three, or five times 
per game. In other words, throughout the games a player may replay 
the sequence he or she is attempting to guess by pressing one of the 
alphabetic keys, but this resource may be used no more than n times. 


An ESP Tester 


Another variation of this game is to attempt to recognize the se- 
quence without listening to it or seeing it! Clearly, in such a case you 
can rely only on your ESP (Extra Sensory Perception) powers to 
facilitate guessing. In order to determine whether you have ESP or 
not, set the length of the initial sequence to ‘‘1.’’ Then, hit the key in 
an attempt to guess the note selected by the program. Try this a 
number of times. If you do not have ESP your results should be ran- 
dom. Statistically, you should win one out of nine times which is only 
one-ninth of the time, or 11.11% of the time. Note that this percent- 
age is valid only for a large number of guesses. 

If you win more than 11% of the time, you may have ESP! If your 
score is higher than 50%, you should definitely run for political office 
or immediately apply for a top management position in business. If 
your score is less than 11%, you have ‘‘negative ESP”’ and you should 
consider looking both ways before crossing the street. 

The following is an exercise for readers who have a background in 
statistics. 


Exercise 8-1: Compute the statistical probability of guessing a correct 
two-number sequence, and a correct four-number sequence. 


A TYPICAL GAME 


The program starts at location 200. As usual, LED 10 lights up as 
shown in Figure 8.1. We specify a series of length two by pushing key 
‘*2”’ on the keyboard. The LED display as it appears in Figure 8.2, 
means ‘‘enter your guess.”’ 

We want to hear the tunes so we push key ‘‘F.’’ In response, LEDs 5 
and 2 light up briefly on the Games Board and corresponding tones 
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®Q0000 


1] 12 13 14 15 


Fig. 8.1: Specify Length of Sequence to Duplicate 


Fig. 8.2: Enter Your Guess 


Fig. 8.3: Follow Me 


are heard through the speaker. This is illustrated in Figure 8.3. We 
must now enter the sequence we have recognized. We push ‘‘S’’ on the 
keyboard. In response, LED 11 goes blank and LED 5 lights up briefly. 
Simultaneously, the corresponding note is played through the speaker. 


It is a successful guess! 


Next, we press key ‘‘2.’’ LED 2 lights up, and the speaker produces 
the matching tone indicating that our second guess has also been suc- 
cessful. A moment later, all LEDs on the board light up to con- 
gratulate us and the rising scale is sounded. It is a sequence of notes of 
increasing frequencies meant to confirm that we have guessed suc- 
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cessfully. The game is then restarted, and LED 10 lights up, as shown 
in Figure 8.1. 

Let us now follow a losing sequence: LED 10 is lit at the beginning 
of the game, as in Figure 8.1. This time we press key ‘‘1’’ in order to 
specify a one-note sequence. Led 11 lights up, as shown in Figure 8.2. 
We press key ‘‘F,’’ and the note is played on the speaker. (We do not 
look at the Games Board to see which LED lights up, as that would be 
too easy.) We press key ‘‘3.’’ A ‘‘lose’’ sound is heard, and LED 1 
lights up indicating that one mistake has been made. A decreasing 
scale is then played (notes of decreasing frequencies) to confirm to the 
unfortunate player that he or she has guessed the sequence incor- 
rectly. The game is then continued with the same sequence and length, 
i.e., the situation is once again the one indicated in Figure 8.2. 

If at this point the player wants to change the length of the se- 
quence, or enter a new sequence, he or she must explicitly restart the 
game by pressing key 0. After pressing key 0, the situation will be 
the one indicated in Figure 8.1, where the length of the sequence can 
be specified again. 


THE ALGORITHM 


The flowchart for this program is shown in Figure 8.4. Let us ex- 
amine it, step-by-step: 

1. The program tells the player to select a sequence length by 

lighting LED 10 on the Games Board. 

2. The sequence length is read from the keyboard. (Keys 0 and 

A-F are ignored at this point.) 

3. The two main variables are initialized to ‘‘0,’’ i.e., the number 

of guesses and the number of errors are cleared. 

4. A sequence table of the appropriate length must then be 
generated using random numbers whose values are between | 
and 9. 

Next, LED 11 1s lit, and the player’s keystroke is read. 

If it is ‘‘O,’’ the game is restarted. Otherwise, we proceed. 

7. If the keystroke value is greater than or equal to 10, it is an 
alphabetic character and we branch off to the right part of the 
flowchart into steps 8 and 9. The recorded sequence is displayed 
to the player, all variables are reinitialized to 0, and the guess- 
ing process is restarted. If the keystroke was a number between 
1 and 9, it must be matched against the stored value. We go to 
10 on the flowchart. 


nvr 
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SIGNAL PLAYER TO 
ENTER SEQUENCE 
LENGTH 







READ SEQUENCE 
LENGTH FROM 
KEYBOARD 








GUESS NUMBER = 0 
ERRORS = 0 


FILL SEQUENCE TABLE 
WITH RANDOM 
NUMBERS BETWEEN 
1TAND9 







READ PLAYER 
KEYSTROKE 
KEYSTROKE = 0? 


NO 


Fig. 8.4: Echo Flowchart 


142 


REAL TIME STRATEGIES 











KEY NUMBER 
<10? 


PLAY SEQUENCE 


GUESS NUMBER = 0 
ERRORS =0 


18 | INCREMENT ERRORS 









LIGHT LED (KEY 
19 | PLAY LOW TONE NUMBER) PLAY 
TONE (KEY NUMBER) 


12 INCREMENT GUESS 





14 
NO DISPLAY NUMBER OF 
ERRORS = 0? ERRORS, PLAY 
(LOSE) DESCENDING TONES 
YES 
(WIN) 
17 | GUESS NUMBER = 0 
LIGHT ALL LEDS ERRORS = 0 
PLAY ASCENDING 


TONES 





Fig. 8.4: Echo Flowchart (Continued) 
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10. If the guess was correct, we branch right on the flowchart to 
step 11. 

11. Since the key pressed matches the value stored in memory, the 
corresponding LED on the Games Board is lit, and the tone 
corresponding to the key that has been pressed is played. 

12. The guessed number is incremented, and then it is compared to 
the maximum length of the sequence to be guessed. 

13. A check is made to see if the maximum length of the sequence 
has been reached. If it has not, a branch occurs back to step 5 
on the flowchart, and the next keystroke is obtained. If the 
maximum length of the sequence has been reached, we proceed 
down the flowchart to the box labeled 14. 

14. The total number of errors made by the player is checked. The 
variable ERRORS is tested against the value ‘‘0.’’ If it is ‘‘O”’ it 
is a winning situation and a branch occurs to box 15. 

15. All LEDs on the board are lit, a sequence of ascending tones is 
played, and a branch occurs back to the beginning of the game. 

Let us now go back to box 14. If the number of errors was greater 
than zero, this is a ‘‘lose’’ situation and a branch occurs to box 16. 

16. The number of errors is displayed, and a sequence of descend- 

ing tones is played. 

17. All variables are reset to 0, and a branch occurs to box 5, giving 
the player another chance to guess the series. 

Now we shall turn our attention back to box 10 on the flowchart, 
where the value of the key was being tested against the stored value. 
We will assume this time that the guess was wrong, and branch to the 
left of box 10. 

18. The number of errors made by the player is incremented by 

one. 

19. A low tone is played to indicate the losing situation. The pro- 
gram then branches back to box 12 and proceeds as before. 


THE PROGRAM 


The complete program appears in Figure 5.1. The program uses two 
tables, and several variables. The two tables are NOTAB used to 
specify the note frequencies, and DURTAB used to specify the note 
durations. Both of these tables were introduced in Chapter 2, and will 
not be described here. Essentially, they provide the delay constants re- 
quired to implement a note of the appropriate frequency and to play it 
for the appropriate length of time. Note that it is possible to modify 
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LINE # LOC 
0002 0000 
0003 0000 
9004 0000 
0005 0000 
0004 0000 
0007 0000 
0008 6000 
0009 0000 
0010 9000 
0011 0000 
0012 0000 
0013 0000 
0014 0000 
0015 0000 
0016 6000 
0017 0000 
0018 6000 
0019 0000 
00260 0000 
0021 0000 
0022 0000 
0023 0000 
0024 0000 
0025 0000 
0026 99000 
0027 0000 
0028 0000 
0029 0000 
0030 0000 
0031 00060 
0032 0000 
0033 0000 
0034 0000 
0035 90060 
QO036 0000 
0037 0000 
0038 0000 
0039 0000 
0040 0000 
0041 0000 
0042 9000 
0043 6000 
0044 9000 
0045 9000 
0046 90000 
0047 9000 
0048 0000 
0049 0000 
0050 0000 
0051 0200 
0052 0200 
0053 0202 
0054 0205 
GOS5 0208 
0056 O20R 
OooSs7 0200 
0058 0210 
00S? 0212 
00460 0214 
0041 0217 
9062 0219 
0063 0218 
0064 O21T! 
0065 0220 
0066 0223 
0067 0225 
0068 0227 
0069 0229 
0070 022k 


CORE 


AO 


2 AO 
7 AC 


AO 


AQ 


AQ 
0 
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LINE 


* ‘ECHO’ 

FFATTERN/TONE RECALL ANT ESF TEST PROGRAM. 

*#THE USER GUESSES “4 PATTERN OF LITT LES AMN 

*THEIR ASSOCIATED TONES. THE TRME/LFIGHT 

*>COMBINATION CAN BRE FLAYER: £0 THAT THE SER 

sMUST REMEMSER IT ANT REENTER IT CORRECTLY. 

7 OPERATING THE FROGRAM: 

7THE STARTING ARTRESS IS $209 

THE BOTTOM ROW OF LEDS FO AN TINTTCATOS 

jFOR PROGRAM STATUS! THE ! FF TMOST 

SOME ¢#20) INDICATES THAT THE PRAGRAM 

71S EXPECTING THE USER TQ INFYIT THE LENGTH 

7OF THE SEQUENCE TO BE GUESSED. 

FTHE LED SECONTt FROM THE LEFT (#24) Tererearesc 

sTHAT THE PROGRAM EXFECTS FITHER A GUESS (1-9); 

*THE COMMANT! TQ RESTART THE GAME (0)+ OF 

7THE COMMANT TO PLAY THE SERUENCE (AF? - 

g9THE KEYS 1-9 ARE ASSOCTATEND WITH THE 

FLEES 1-9, 

FLOORING AT THE SEQUENCE WHILE TN THE MTNANLE 

yQOF GUESSING IT WILL ERASE ALL. PREVIOUS 

IGUESSES (RESET GESNO ANE ERRE TO 9). 

SAFTER A WINs THE PROGRAM RESTARTS, 

? 

PLINKAGES ¢ 

GETKEY = €100 

§ 

PVARTIABILE STORAGES? 

HIGITS = £00 PNUMPER (OF NIGTITS TA SPOMUEMCE 

GESNO = €01 SNUMEFER OF CURRENT GUES?, 
s(WHERE THE SER TS ral THE SERIES} 

ERRS = $02 sMNUMPER GF ERSOES MOE. TM 

FGUESSING CURRENT SEQUENCE. 
ur = $03 sTEMF STOPPAGE FOR MOTE BURATTON, 
FREQ = $94 7TEME STORAGE FOR NOTE FREMIENCY. 


TEMP = €O%5 STEMPORARY STORAGE FOR ¥ RES, 
TABLE = 804 STORAGE FOR SE OUENCE 
RNT = $0OF SCRATCHFEAS FOR RANROQM * GEM. 


3¢ 
P6522 VIA #1 AIDMRESSES®? 
PORTIA = A001 


INRIA = €4003— 
PORTIR = $n000 
DIRIR = ¢A0o2 
TiCl. = $A004 


946522 WIA #23 ANURESSES 
PORT3SR -— $AlLOO 


DNRAB = $ACO2 
? 

K = $200 
9 


START LIA ##FF 
STA BORIA 
STA DORLE 
STA TINRSE 
LOA #9 ICLEAR VARTARLE STORAGES 
STA PORTIA =...-AND LENS 
STA ERRS 
STA GEEND 
LMA TICL sGET SEE FOR RUE # SEN. 
STA RNU42 FANN STORE IN RNG SCRATCH. 
STA RNII+4 
LEA #4070 sTURN LER #10 OM TO TMDICATE 
STA PORTIP #NEET FAS LENGTH INPUT. 
VIGKEY JSR GETKEY SGET LENGTH OF SERTES., 
CMP #0 Polen, a ae 
REQ DIGKEY «If YES: GET ANOTHER, 
CMF #10 LENGTH GREATER THAN °°? 
RPL TITGKEY #3F .YESs GET ANCTHER, 
STA DIGITS sSAVE VAL TT! LENGTH 


SSET NE SATA HIRECTION RFETSTERS. 


Fig. 8.5: Echo Program 
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O22 AA TAX HISE LENGTH-1 AS INDEX FOR FILING... 
O22E CA DEX $.-SERTES W/RANTIOM YALUFS. 
O22F 846 O05 FILL STX TEMF SAVE X FROM “RANTIOM’ 
QO231 20 E?7 O02 JSR RANPOM 

0234 A& O5 LOX TEMPE SRESTORE X 

0236 FS SET 70 A NEIMAL ADJUST 

0237 18 CLC 

0238 69 00 ANC #0 

023A FS cL 

O23R 29 OF AND #$0F FREMOQVE WRPER NYRRBLE SO 
0230 FNUMBER IS 10 

O23 FO FO REQ FILL ¢# CAN’T FE ZERO. 

O23F 95 04 STA TABLEsX sSTORE f IN TABLE 

0241 CA TEX #NECREMENT FOR NEXT 

0242 10 EF REL FILL 31.00F IF NOT TONE 

0244 AY 00 KEY Lia #0 sLEAR LEDS 






0246 8 O1 AO STA FORTIA 

0249 A? 04 LOA #40100 s+ TURN INFUT INIICATOR ON, 
024k 8f 00 AO STA PORTIE 

O24E 20 00 O1 JSR GETKEY sGET GUESS OR FLAY CMI. 
0251 C9 00 CMF #0 7IS IT 0 ? 

0253 FO AR STRTJF REQ START sIF YESy RESTART. 
0255 C9? OA CMF #10 ;sNUMBEF - 10 7 

0257 30 22 BMI EVAL ¢IF YESs EVALUATE GUESS. 

















0259 ROUTINE TO RISFLAY SERIES TQ BE GUESSED RY 

0259 SL.IGHTING LEDS ANN PLAYING TONES IN SEQUENCE. 

0259 ’ 

0259 A2 00 SHOW LIX #0 

O25k 86 Of STX GESNO FCLEAR ALL CURRENT GUESSES. 

O25I 86 02 STX ERRS sCLEAR CURRENT ERRORS. 

O25F ES 04 SHOWLF LOA TABLE» x *GET XTH ENTRY IN SERIES TABLE. 
0261 86 OS STX TEMF sSAVE X 

0263 20 CF O02 JSK LIGHT sLIGHT LEDECTABLE (X)) 

0266 20 FA O02 JSR PLAY fPLAY TONFECTABLE(X) > 

0269 AO FF LOY #$FF *¢SET !| OOF CNTR. FOR DELAY 

O26B 4&6 O03 TNELAY ROR DUR wWASTE TIME 

O26Nn 26 O03 ROL ItUurR 

O26F 88 ney sCOUNT ROWN... 

0270 0 F9 KNEE DELAY sIF NOT TONE? | OOF AGAIN. 

0272 A& OS LOX TEMP RESTORE X 

0274 §EB INX INCREMENT INREX TO SHOW NEXT 
0275 E4 00 CPX PIGITS sALL MIGITS SHOWN? 

0277 TO ES ENE SHOWLF ¢IF NOT, SHOW NEXT. 

0279 FO CY REQ KEY <JIONE? GET NEXT INPUT. 

0278 ? 

Boon FROUTINE TO EVALUATE GUESSES OF FILAYER. 

0278 3 

0278 AS O1 EVAL. LOX GESNO 9GET NUMBER OF GUESS. 

0270 RS 06 CMF TABLESX sGUESS = CORRESFOMNTDING EEGrtT? 
O27F FO OU REQ CORECT 31IF YES» SHOW PLAYER. 

0281 E46 02 WRONG INC ERRS FGUESS WRONG: ANOTHER ERROR. 
0283 AX 8O LUA #$80 #MURATTON FOR LOW TONE TO INDICATE 
0285 85 03 STA DUR <A GUESS. 

0287 AQ FF LIA #$FF sFREQUENCY CONSTANT 

0289 20 04 03 JSR PLYTON sFLAY IT 

O28C FO 06 REQ ENDCHR ¢CHECK FOR ENTIGAME 

O28E 20 CF O02 CORECT JSR LUGHT PVALITCATE CORRECT GUESS. 
0291 20 FA 02 JSR FLAY 

0294 E& 01 ENDCHK INC GESNG SONE MORE GUESS TAKEN. 

0296 AS 00 LUA DIGITS 

0298 CS O1 CMP GESNO FALL DIGITS GUESSEN? 

029A [0 AB BNE KEY #IF NOT: GET NEXT. 

O29C AS 02 LOA ERRS sGET NUMBER OF ERRORS. 

O29E C9 00 CMF #0 *ANY ERRORS? 

O2A0 FO 15 REQ WIN IF NOTs FLAYER WINS. 

O2ZA2 20 CF O02 LOSE JSR LIGHT ?SHOW NUMBER OF ERRORS, 

O2A5 AP OF LIA #9 7FLAY 8 DESCENTING TONES 
O2A7 48 LOSELF FHA 
0248 20 FA 02 JSR FLAY 
O2AR 68 FLA 


Po Fig. 8.5: Echo Program (Continued) 
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0142 O2AC 3B SEC 

0143 #O2ADT EF? O1 SHC #1 

0144 O2AF DO F4 BENE LOSELF 

0145 O2R1 85 01 STA GESNO *CLEAR VARTARLES 

0146 O2B3 85 O02 STA ERRS 

0147 O2B5 FO BI REQ KEY #GET NEXT GUESS SEQUENCE 
0148 O2B7 A? FF WIN LIA #$FF 7TURN ALL LEDS ON FOR WIN 
0149 O2B9 si 01 AO STA FORT1IA 

0150 O2kC 8st 00 AO STA FORTLE 

0151 O2BF AZ O01 LOA #1 sFLAY 8 ASCENDING TONES 

0152 02C1 48 WINLF FHA 

0153 O02C2 20 FA 02 JSK Ftay 

0154 0205 68 FLA 

0155 O02Cé6 18 CLC 

0156 O2C7 69 O1 anc #01 

01357 O2C? C9 OA CMF #19 

0158 O2CR DO F4 RENE WINLP 

O159 O2CD FO 84 REQ STRTJF ¢USE TOUBRLE-JUMF FOR RESTART 
0160 O2CF ; 

0161 O2CF *ROUTINE TO LIGHT NTH LEDs WHERE N IS 

0162 O2CF ?>THE NUMBER FASSED AS A FARAMETER IN 

0163 O2CF *#THE ACCUMULATOR. 

0164 O2CF ; 

0145 O2CF 48 LIGHT FHA ¥SAVE A 

01466 O2D0 AB TAY rUSE A AS COUNTER IN Y 

0147 O2D1 Ag? 00 LTA #0 *CLEAR A FOR BIT SHIFT 

0168 O203 sf 00 AO STA FORT1B *#CLEAR HI LEDS. 

0169 O2D6 368 SEC *GENERATE HI HIT TO SHIFT LEFT. 
0170 O207 24 LTSHFT ROL A MOVE HI KIT LEFT. 
0171 O2D8 88 DEY yTIIECREMENT COUNTER 

0172 o2n9 oO FC BNE «_TSHFT #SHIFTS DONE? 

0173 O2DR sr 01 AOD STA FORTIA *STORE CORRECT FATTERN 
0174 O2nE 9%0 05 BCC LTCC ¢BRIT 9 NOT HI» LONE. 

0175 O2EO Ag Of LEA #1 

0176 O2E2 8 OO AO STA FORTIB $TURN LED 9 ON. 

0177 O2ZES 48 LTCC FLA ‘RESTORE A 

0178 O2E6 60 RTS 3 DIONE . 

0179 O2E?7 7 

0180 O2E7 sRANIIOM NUMBER GENERATOR: RETURNS W/ NEW 
0181 O2E7 yRANIIOM NUMBER IN A. 

0182 O2E7 7 

0183 O2E€7 38 RANDOM SEC 

0184 O2E8 AS 10 LUA RNI+1 

0185 O2EA 65 13 ADC RNII+4 

0186 O2EFC 45 14 ALC RNI+S 

0187 O2FE 85 OF STA RNI 

0188 O2FO Az 04 LOX #4 

0189 O2F2 HS OF RNULF LIA RNIts xX 

0190 O2F4 95 10 STA RNII+1 9X 

0191 O2F6 CA DEX 

0192 O2F7 10 F9 BPL RNIILP 

0193 O2F9 690 RTS 

OL94 O2FA 5 

0195 O2FA *PROUTINE TO PLAY TONE WHOSE NUMBER IS FASSED 
0176 O2FA 3IN BY ACCUM. IF ENTERED AT FLYTONe IT WELL 
0197 O2FA gPLAY TONE. WHOSE LENGTH IS IN DUR, FREQUENCY 
0198 O2FA ,IN ACCUMULATOR. 

0199 O2FA , 

0200 O2FA AB PLAY TAY y,USE TONE# AS INDEX... 
0201 O2FR 88 NEY yNECREMENT TO MATCH TABLES 
0202 O2FC BY 27 03 LOA DURTAR*sY #GET DURATION FOR TONE N. 
0203 O2FF 85 Q3 STA DUR FSAVE IT, 

0204 O301 BY IE 03 LEA NOTARsY *GET FREQ. CONST FOR TONE# N 
0205 0304 85 04 PLYTON STA FREQ >SAVE IT. 

0206 0306 AY 090 LDA #0 *SET SFKR FORT LQ. 

0207 0308 81 00 AC STA FORTIE 

0208 O30OB Aé6 O03 LUX DUR s¢GET DURATION IN # OF 172 CYCLES. 
0209 O30n A4 04 Fi.2 LEY FREQ $GET FREQUENCY 

0210 O30F 88 Ft.l DEY FCOUNT TOWN DELAY.-- 
0211 0310 18 CLC *WASTE TIME 

O212 O311 90 900 RCC #*+2 


Fig. 8.5: Echo Program (Continued) 
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0213 0313 TO FA BNE FLt ‘¥LOOF FOR DELAY 

0214 O315 49 FF EOR #$FF s¢COMPLEMENT FORT 

0215 0317 80 00 AC STA FORTSE 

0216 O31A CA DEX ICOUNT DOWN DURATION... 

O217 O31R 0 FO BNE FL2 $1.00F TIL NOTE OVER. 

0218 O310 40 RTS 7DONE. 

0219 OSI1E , 

0220 OS1LE ‘TABLE FOR NOTE FREQUENCIES. 

O221 O31E , 

0222 O31E C9? NOTAR .JRYTE $C9r SBE r$APr $96r SBE $7E 2 $707 954 7E5E 


0222 O31F BE 
0222 0320 Ag? 
0222 O321 96 
0222 O322 BE 
0222 O323 7E 
0222 0324 70 
02322 0325 64 
0222 0324 SE 


0223 0327 ; 

0224 0327 yTABLE FOR NOTE DURATIONS. 

0225 0327 7 

0226 O327 5 DURTAR .RYTE @6BRr$727%805 SRF p S947 SAAS SRF o SII7 9 HFA 


0226 0328 72 
0226 0329 80 
0226 O32A S&F 
0226 O328 94 
0226 O32C AA 
0226 O32D HF 
022 O32E It7 
0226 O32F E4 
0227 0330 -END 


SYMBOL TABLE 
SYMBOL VALUE 


CORECT 028E ROR LA NOOS nORIE AQOQ2 NIRA AMO? 
DELAY O26B DIGITS 0000 NIGREY 0220 [Tur 0003 
QURTAR 0327 ENDCHK 0294 ERRS& 0002 EVAL N27H 
FILL 022F Fld O3OF FL2 OSOL FREQ O004 
GESNO 0001 GETKEY 0100 KEY O244 LGU OP Ur 
LOSE O2A2 LOSELF O2A7 LTCC ODES LF SHE T On? 
NOTA O31E FLAY O2FA FL.YTON O304 FORTIN ANDI 
FORTIER AICO FORTSE ATOO RANDOM O2E7 RNI! QOOF 
RANDLE O2F2 SHQUW 0259 SHOWLF O25F START 29090 
STRT JF 0233 TICL A004 TABLE 0006 TEMF NOOS 
WIN 0287 WINLF 0201 WRONG O2B1 


END OF ASSEMBLY 


Fig. 8.5: Echo Program (Continued) 


the difficulty of the game by increasing or decreasing the duration 
during which each note is played. Clearly, reducing the duration 
makes the game more difficult. Increasing the duration will usually 
make it easier, up to a point. You are encouraged to try variations. 

The main variables used by the program are the following: 

DIGITS contains the number of digits in the sequence to be 
recognized. 

GESNO indicates the number of the current guess, i.e., which of the 
notes in the series the user is attempting to recognize. 

ERRS indicates the number of errors made by the player so far. 

TABLE is the table containing the sequence to be recognized. 
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A few other memory locations are reserved for passing parameters 
to subroutines or as scratch-pad storage. They will be described within 
the context of the associated routines. 

As usual, the program starts by setting the data direction registers 
for Port 1A, Port 1B and Port 3B to an output configuration: 


START LDA #$FF 
STA DDRIA 
STA DDRIB 
STA DDR3B 
Next, all LEDs on the board are turned off: 


LDA #0 
STA PORTIA 


and the two variables, ERRS and GESNO, are set to 0: 


STA ERRS 
STA GESNO 


The random number generator is primed by obtaining a seed and stor- 
ing it at locations RND + 1 and RND + 4: 


LDA TICL Read timer counter. 
STA RND + 1 
STA RND + 4 


The game is now ready to start. LED 10 must be turned on to indicate 
to the player that the game is ready: 


LDA #%010 Pattern for LED 10 
STA PORTIB Specify length 


The keyboard is scanned for the player input using the usual GETKEY 
subroutine (described in Chapter 1): 


DIGKEY JSR GETKEY 


It is checked for the value ‘‘0’’: 
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CMP #0 
BEQ DIGKEY If = 0, get another one 


If the entry was ‘‘0,’’ the program waits for another keystroke. Other- 
wise, it is compared to the value 10: 


CMP #10 Sequence longer than 9 
BPL DIGKEY 


If the sequence length is greater than 9, it is also rejected. Accepting 
only valid inputs, using a bracket is known as ‘‘reasonableness 
testing’’ or ‘‘bracket-filtering.’’ 

If all is fine, the length of the sequence to be recognized is stored at 
memory location DIGITS: 


STA DIGITS Length of sequence 


A running pointer is then computed and stored at location TEMP. It 
is equal to the previous length minus 1: 


TAX Use X for computation 
DEX Decrement 
FILL STX TEMP 


The RANDOM subroutine is then called to provide a first random 
number: 


JSR RANDOM 


The position pointer in the series of notes now being generated is 
retrieved from TEMP, and stored in index register X in anticipation 
of storing the new random number in TABLE: 


LDX TEMP 


The value of the random number contained in the accumulator is then 
converted to a decimal value between 0 and 9. This process can be per- 
formed in various ways. Here, we take advantage of the special 
decimal mode available on the 6502. The decimal mode is set by speci- 
fying: 

SED Set decimal mode 
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Note that the carry flag must be cleared, prior to an addition: 
CLC Clear carry 


The trick used here is to add ‘‘0’’ to the random number contained in 
the accumulator. The result in the right part of A is guaranteed to be a 
digit between 0 and 9, since we are operating in the decimal mode. 
Naturally, any other number could also be added to A to make its con- 
tents ‘‘decimal’’; however, this would change the distribution of the 
random numbers, and some numbers in the series such as 0, 1, and 2 
might never appear. Once this conversion has been performed, the 
decimal mode is simply turned off: 


ADC #0 Add ‘‘0’’ in decimal mode 
CLD Clear decimal mode 


This is a powerful 6502 facility used to a great advantage in this in- 
stance. In order to guarantee that the result left in A be a decimal 
number between 0 and 9, the upper nibble of the byte is removed by 
masking it off: 


AND $#0F 


Finally, a value of ‘‘0’’ is not allowed, and a new number must be ob- 
tained if this is the current value of the accumulator: 


BEQ FILL 


Exercise 8-2: Could we avoid this special case for ‘‘0’’ by adding a 
value other than ‘0’’ to.A above? 


If this is not the current value of the accumulator, we have a decimal 
number between 1 and 9 that is reasonably random, which can now 
be stored in the table. Remember that index register X has been 
preloaded with the current number’s position in the sequence (re- 
trieved from memory location TEMP). It can be used, as is, as an in- 
dex: 

STA TABLE, X Store # in table 


The number pointer is then decremented in anticipation of the next 
iteration: 
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DEX 


and the loop is reentered until the table of random numbers becomes 
full: 


BPL FILL 


We are now ready to play. LED 12 will be turned on, signaling to the 
player that he or she may enter a guess: 


KEY LDA #0 
STA PORTIA 
LDA #%0100 
STA PORTIB 


The player’s guess is then read from the keyboard: 
JSR GETKEY Get guess 


It must be tested for ‘‘0’’ or for an alphabetic value. Let us test for 
‘<Q?’ 


CMP #0 Is it 0? 
STRTJP BEQ START If yes, restart 


If it is ‘‘O,’’ the game is restarted, and a branch occurs to location 
START. If it is not ‘‘0,’? we must check for an alphabetic character: 


CMP #10 Number <10? 
BMI EVAL If yes, evaluate correctness 


If the value of the input keystroke is less than ten, it is a guess and is 
evaluated with the EVAL routine. Otherwise, the program executes 
the SHOW routine to display the series. 


The SHOW Routine 


We will assume here that an alphabetic key has been pressed. BMI 
fails, and we enter the SHOW routine. This routine plays the 
computer-generated tune and lights up the corresponding sequence of 
LEDs. Also, whenever this routine is entered, the guessing sequence is 
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restarted and the temporary variables are reset to 0: 


SHOW LDX #0 
STX GESNO 
STX ERRS Reset alli variables 


The first table entry is obtained, the corresponding LED 1s lit, and the 
corresponding tone is played: 


SHOWLP LDA TABLE,X Get Xth entry in table 


STX TEMP Save X 
JSR LIGHT Light LED # TABLE (X) 
JSR PLAY Play tone # TABLE (X) 


An internote delay is then implemented using Y as the loop counter 
and two dummy instructions to extend the delay: 


LDY #$FF 
DELAY ROR DUR Dummy instruction 
ROL DUR Dummy 
DEY Count down 
BNE DELAY End of loop test 


We are now ready to perform the same operation for the next note in 
the current table. The index pointer is restored and incremented: 


LDX TEMP Restore X 
INX Increment it 


It is then compared to the maximum number of digits stored in the 
table. If the maximum has been reached, the display operation is com- 
plete and we go back to label KEY. Otherwise, the next tone is sound- 
ed, and we go back to label SHOWLP: 


CPX DIGITS All digits shown? 
BNE SHOWLP 
BEQ KEY Done, get next input 


The EVAL Routine 


Let us now examine the routine which evaluates the guess of the 
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player. It is the EVAL routine. The value of the corresponding entry in 
TABLE is obtained and compared to the player’s input: 


EVAL LDX GESNO Load guess number into X 
CMP TABLE,X Compare guess to number 
BEQ CORECT If correct, tell player 


If there is a match, a branch occurs to location CORECT; otherwise, 
the program proceeds to label WRONG. Let us examine this case. If 
the guess is wrong, one more error is recorded: 


WRONG INC ERRS 
A low tone is played: 


LDA #$80 
STA DUR 
LDA #$FF 
JSR PLYTON Play it 


A jump then occurs to location ENDCHK: 
BEQ ENDCHK Check for end of game 


Exercise 8-3: Examine the BEQ instruction above. Will it always result 
in a jump to label ENDCHK? (Hint: determine whether or not the Z 
bit will be set at this point.) 


Exercise 8-4; What are the merits of using BEQ (above) versus JMP? 


Now we shall consider what happens in the case of a correct guess. 
If the guess is correct, we light up the corresponding LED and play the 
corresponding tone. Both subroutines assume that the accumulator 
contains the specified number: 


CORECT JSR LIGHT Turn on LED 
JSR PLAY Play note to confirm 


We must now determine whether we have reached the end of a se- 


quence or not, and take the appropriate action. The number of 
guesses is incremented and compared to the maximum length of the 
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stored tune: 


ENDCHK INC GESNO One more guess 
LDA DIGITS 
CMP GESNO All digits guessed? 
BNE KEY If not, get next key closure 


If we are not done yet, a branch occurs back to label KEY. Otherwise, 
we have reached the end of a game and must signal either a ‘‘win’’ or a 
‘‘lose’” situation. The number of errors is checked to determine this: 


LDA ERRS Get number of errors 
CMP #0 No error? 
BEQ WIN If not, player wins 


If a ‘‘win’’ is identified, a branch occurs to label WIN. This will be 
described below. Let us examine now what happens in the case of a 
“‘lose’’: 


LOSE JSR LIGHT Show number of errors 


The number of errors is displayed by lighting up the corresponding 
LED. Remember that the accumulator was conditioned prior to enter- 
ing this routine and contained the value of ERRS, i.e., the number of 
errors so far. 

Next, a sequence of eight descending tones is played. The top of the 
stack is used to contain the remaining number of tones to be played: 


LDA #9 Play 8 descending tones 
LOSELP PHA Save A on stack 

JSR PLAY Play tone 

PLA Restore A 


Once a tone has been played, the remaining number of tones to be 
played is decremented by one and tested for ‘‘0’’: 


SEC Set carry (for subtract) 
SBC #1 Subtract one 
BNE LOSELP 


Exercise 8-5: Note how the top of the stack has been used as a tem- 
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porary scratch location. Can you suggest an alternative way to achieve 
the same result without using the stack? 


Exercise 8-6: Discuss the relative merits of using the stack versus using 
other techniques to provide temporary working locations for the pro- 
gram. Are there potential dangers inherent in using the stack? 


Eight successive tones are played. Then the two work variables, 
GESNO and ERRS, are reset to ‘‘0,’’ and a branch occurs back to the 
beginning of the program: 


STA GESNO Clear variables 
STA ERRS 
BEQ KEY Get next guess sequence 


Let us examine now what happens in a ‘‘win’’ situation. All LEDs on 
the Games Board are turned on simultaneously: 


WIN LDA #$FF It is a win: turn all LEDs on 
STA PORTIA 
STA PORTIB 


Next, a sequence of eight ascending tones is played. The tone number 
is stored in the accumulator and will be used as an index by the PLAY 
subroutine to generate an appropriate note. As before, the top of the 
stack is used to provide working storage: 


LDA #1 A will be incremented to 9 
WINLP PHA Save A on the stack 

JSR PLAY 

PLA 


The number of tones which have been played is then incremented by 1 
and compared to the maximum value of 9: 


CLC Clear carry for addition 
ADC #01 
CMP #10 


As long as the maximum of 9 has not been reached, a branch occurs 
back to label WINLP: 
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BNE WINLP 
Otherwise, a new game is started: 
BEQ STRTJP Double jump for restart 


This completes the description of the main program. Three 
subroutines are used by this program. They will now be described. 


The Subroutines 
LIGHT Subroutine 


This subroutine assumes that the accumulator contains the number 
of the LED to be lit. The subroutine will light up the appropriate LED 
on the Games Board. It will achieve this result by writing a ‘‘1’’ in the 
appropriate position in the accumulator and then sending it to the ap- 
propriate output port. Either Port 1A will be used (for LEDs 1 through 
8) or Port 1B (for LED 9). The ‘‘1’’ bit is written in the appropriate 
position in the accumulator by performing a sequence of shifts. The 
number of shifts is equal to the position of the LED to be lit. Index 
register Y is used as a shift-counter. The number of the LED to be lit is 
saved in the stack at the beginning of the subroutine and will be 
restored upon exit. Note that this is a classic way to preserve the con- 
tents of an essential register during subroutine execution so that the 
contents of the accumulator will be unchanged upon subroutine exit. 
If this was not the case, the calling program would have to explicitly 
preserve the contents of the accumulator prior to calling the LIGHT 
subroutine. Then it might have to load it back into the accumulator 
prior to using another one of the routines, such as the PLAY routine. 
Because LIGHT and PLAY are normally used in sequence, it is more 
efficient to make it the subroutine’s responsibility to save the contents 
of the accumulator. Let us do it: 


LIGHT PHA Preserve A 
The shift-counter is then set up: 
TAY Use Y as shift counter 


and the accumulator is initialized to ‘‘O’’: 
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LDA #0 Clear A 
LED 9 is turned off in case it was lit: 
STA PORTIB 
The shifting loop is then implemented. The carry bit is initially set to 
“*1,’’ and it will be shifted left in the accumulator as many times as 
necessary: 
SEC Set carry 
LTSHFT ROL A 


DEY 
BNE LISHFT 


The correct bit pattern is now contained in the accumulator and dis- 
played on the Games Board: 


STA PORTIA 
However, one special case may arise: if LED 9 has been specified, the 
contents of the accumulator are ‘‘0’’ at this point, but the carry bit has 
been set to ‘‘1”’ by the last shift. This case must be explicitly tested for: 


BCC LTCC Is bit 9 set? 


If this situation exists, the accumulator must be set to the value 
**00000001,’’ and output to Port 1B: 


LDA #1 
STA PORTIB Turn LED 9 on 


We finally exit from the routine without forgetting to restore the ac- 
cumulator from the stack where it had been saved: 


LTCC PLA Restore A 
RTS 


Exercise 8-7: List the registers destroyed or altered by this subroutine 
every time it is executed. 
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Exercise 8-8: Assume that register Y must be left unchanged upon 
leaving this subroutine. What are the required program changes, if 
any? 


RANDOM Subroutine 


This subroutine generates a new random number and returns its 
value in A. Its operation has been described in Chapter 4. 


PLAY Subroutine 


This subroutine will normally play the tone corresponding to the 
number contained in the accumulator. Optionally, it may be entered 
at location PLYTON and will then play the tone corresponding to the 
frequency set by the accumulator and corresponding to the length 
specified by the contents of memory location DUR. Let us examine it. 

Index register Y is used as an index to the two tables required to 
determine the note duration and the note frequency. In this game, up 
to 9 notes may be played, corresponding to LEDs and keys 1 through 
9. Index register Y is first conditioned: 


PLAY TAY Use tone # as index 
DEY Decrement to internal value 


Note that the index register must be decremented by one. This is 
because key 1 corresponds to entry number 0 in the table, and so on. 
The duration and frequencies are obtained from tables DURTAB and 
NOTAB using the indexed addressing mode. They are stored respec- 
tively at locations DUR and FREQ: 


LDA DURTAB,Y Get duration 


STA DUR Save it 
LDA NOTAB,Y Get frequency 
PLYTON STA FREQ Save it 


The speaker is then turned off: 


LDA #0 
STA PORT3B Set speaker Port 3B 


Two loops will now be impiemented. An inner loop will use register Y 
as the delay-counter to implement the correct frequency for the note. 
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Register X will be used in the outer loop and will generate the tone for 
the appropriate duration of time. 
Let us condition the two counter registers: 


LDX DUR Get duration in # of % cycles 
FL2 LDY FREQ Get frequency 


Next, let us implement the inner loop delay: 


FLI DEY 
CLC Waste time 
BCC *+2 
BNE FL1 Delay loop 


Note that two ‘‘do-nothing’’ instructions have been placed inside the 
loop to generate a longer delay. At the end of this inner loop delay the 
contents of the output port connected to the loudspeaker are com- 
plemented in order to generate a square wave. 


EOR #$FF Complement port 


Note that, once more, EOR #$FF is used to complement the contents 
of a register. 


STA PORT3B 
The outer loop can then be completed: 


DEX 
BNE FL2 Outer loop 
RTS 


SUMMARY 


This program demonstrates how simple it is to implement electronic 
keyboard games that sound for input/output and that are challenging 
to adult players. 


Exercise 8-9: The duration and frequency constants for the nine notes 
are shown in Figure 8.6. What are the actual frequencies generated by 
the program? 
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FREQUENCY DURATION 
CONSTANT CONSTANT 


1 
2 
3 
4 
5 
6 
7 
8 
9 





Fig. 8.6: Frequency and Duration Constants 
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9. Using Interrupts 
(Mindbender) 


INTRODUCTION 


Interrupts are generated by using the programmable interrupt timer 
of the 6522 VIA, acommon 6502 I/O chip. The programmable interrupt 
timer is used in the free-running mode to generate a wave form. 


THE RULES 


This game is inspired by the commercial game of MasterMind 
(trademarked by the manufacturer, Invicta Plastics, Ltd.). In this 
game, one or more players compete against the computer (and against 
each other). The computer generates a sequence of digits — for exam- 
ple, a sequence of five digits between ‘‘0’’ and ‘‘9’’ — and the player 
attempts to guess the sequence of five numbers in the correct order. 
The computer responds by telling the player how many of the digits 
have been guessed accurately, and how many were guessed in their 
correct location in the numerical sequence. 

LEDs 1 through 9 on the Games Board are used to display the com- 
puter’s response. A blinking LED is used to indicate that the player’s 
guess contains a correct digit which is located in the right position in 
the sequence. A steadily lit LED is used to indicate a digit correctly 
guessed but appearing out of sequence. Several players can match 
their skills against each other. For a given complexity level — say, for 
guessing a sequence of seven digits—the player that can correctly guess 
the number sequence with the fewest guesses is the winner. 

The game may also be played with a handicap whereby a given 
player has to guess a sequence of n digits while the other player has to 
guess a sequence of only n — 1 digits. This is a serious handicap, since 
increasing the level of difficulty by one is quite significant. 


A TYPICAL GAME 


Both audio and visual feedback are used to play this game. 
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The Audio Feedback 


Every time that a player has entered his or her sequence of guesses, 
the computer responds by sounding a specific tone. A low tone in- 
dicates an incorrect guess; a high tone indicates that the sequence was 
guessed correctly. 


The Visual Feedback 


At the beginning of each game, LED #10 is lit, requesting the length 
of the sequence to be guessed. This is shown in Figure 9.1. The player 
then specifies the sequence length as a number from ! through 9. Any 
other input willbe ignored. 


Fig. 9.1: Enter Length of Sequence 


As soon as the length has been specified, for example, let’s say the 
length ‘‘2’’ has been selected, LED #11 lights up. This means ‘‘Enter 
your guess.’’ (See Figure 9.2.) At this point the player enters his or her 
guess as a sequence of two digits. Let us now play a game. 


10 1 1 13 14 15 
Fig. 9.2: Enter Your Guess 


The player types in the sequence ‘‘1,2.’’ A low tone sounds, LEDs 
10 and 11 go out briefly, but nothing else happens. The situation is in- 
dicated in Figure 9.3. Since LEDs 1 through 9 are blank, there is no. 
correct digit in the guess. Digits ‘‘1’’ and ‘‘2’’ must be eliminated. Let 
us try another guess. 

We type ‘‘3,4.’’ A low tone sounds, but this time LED #1 is steadily 
on, as indicated in Figure 9.4. From this we know that either ‘3’ or 
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Fig. 9.4: One Correct Digit in the Correct Position 


**4”’ is one of the digits and that it belongs in the other position. Con- 
versely, the sequence ‘‘4,3,’’ must have one good digit in the right 


position, Just to be sure let us perform a test. 


We now type ‘‘4,3.’’ A low tone sounds, indicating that the se- 
quence is not correct, but this time LED #1 is on and blinking. 
This proves that our reasoning is correct, and we proceed. 

We now try ‘‘4,5.’’ A high-pitched sound is heard and LEDs 1 and 2 
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light up briefly, indicating that those digits have been guessed correct- 
ly and that we have won our first game. 

At the end of the game, the situation reverts to the one at the begin- 
ning, as indicated in Figure 9.1. Note that typing in a value other than 
‘*1*’ through ‘‘9”’ as a guess will restart the game. 

There is a peculiarity to the game: if the number to be guessed con- 
tains two identical digits, and the player enters this particular digit in 
one of its two correct locations, the computer response will indicate 
this digit as being both the right digit in the right place and the right 
digit in the wrong place! 


THE ALGORITHM 


The flowchart for Mindbender is shown in Figure 9.5. Interrupts are 
used to blink the LEDs. Interrupts will be generated automatically by 
the programmable interval timer of VIA #1 at approximately 1/15th- 
of-a-second intervals. 

Referring to Figure 9.5, all of the required registers and memory loca- 
tions will be initialized first. Next (box 2 on the flowchart), the length 
of the sequence to be guessed is read from the keyboard. The validity 
bracket ‘‘1’’ to ‘‘9’’ is used to ‘‘filter’’ the player’s input. 

Next, a random sequence must be generated. In box 3 of the 
flowchart, a sequence of random numbers is generated and stored ina 
digit table, starting at address DIGO. 

In box 5, the computer’s sequence of numbers is compared — one 
number at a time — with the player’s guess. The algorithm takes one 
digit from the computer sequence and matches it in order against 
every digit of the player sequence. As we have already indicated, this 
may result in lighting up two LEDs, if ever there are two or more iden- 
tical digits in the number to be guessed and the player has specified 
only one digit. One digit may be flagged as being in the right place, 
and also as being correct but in the wrong location(s). 

Note that, alternatively, another comparison algorithm could be 
used in which each digit of the player’s sequence is compared in turn 
with each digit of the computer’s sequence. 

Once the digits have been compared, the resulting score is displayed 
on the LEDs (box 6). Finally, a test is made for a win situation (box 7), 
and the appropriate sound is generated (box 8). 
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MINDBENDER 


1 INITIALIZE 






READ LENGTH OF 
SEQUENCE = DIGITS 


KO 















GENERATE RANDOM 
NUMBERS AND STORE 
IN DIGIT TABLE 


READ USER GUESSES 
INTO ENTRY TABLE 


COMPARE GUESS 
WITH CORRECT 
NUMBERS 





DISPLAY SCORE 
CORRECT DIGITS 
AND CORRECT PLACE 





LOW SOUND 8 HIGH SOUND 





Fig. 9.5: Mindbender Flowchart 
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THE PROGRAM 
Data Structures 


Two tables of nine entries are used to store, respectively, the com- 
puter’s sequence and the player’s sequence. They are stored starting at 
addresses DIGO and ENTRYO. (See Figure 9.6.) 


The Variables 


Page 0 is used, as usual, to provide additional working registers, 
l.e., to store the working variables. The use of page 0 is indicated as a 
‘‘memory map’’ in Figure 9.6. The first nine locations are used for the 
program variables. The function of each variable is indicated in the il- 
lustration and will be described in detail as we examine the program 
below. Locations ‘‘09’’ through ‘‘OE’’ are reserved for the random 
table used to generate the random numbers. Locations ‘‘OF’’ through 
‘17°’ are used for the DIGO table used to store the computer- 
generated sequence of random numbers. Finally, locations ‘‘18’’ and 
following are used to contain the sequence of digits typed by the user. 

The memory locations used for addressing input/output and for in- 
terrupt vectoring are shown in Figure 9.7. Locations ‘‘A000’’ through 
‘*A005”’ are used to address Ports A and B of VIA #1 as well as timer 
Tl. The memory map for a 6522 VIA is shown in Figure 9.8. 

Location ‘‘AOQOB’’ is used to access the auxiliary control register, 
while location ‘‘AQOE”’ accesses the interrupt-enable register. For a 
detailed description of these registers the reader is referred to the 6su. 
Applications Book (reference D302). 

Memory locations ‘‘A67E’’ and ‘‘A67F”’’ are used to set up the in- 
terrupt vector. The starting address of the interrupt-handling routine 
will be stored at this memory location. In our program, this will be ad- 
dress ‘‘O3EA.’’ This is the routine in charge of blinking the LEDs. It 
will be described below. Finally, Port 3 is addressed at memory loca- 
tions ‘‘ACOO0’’ and ‘‘AC02.’’ 


Program Implementation 


A detailed flowchart for the Mindbender program is shown in 
Figure 9.9, Let us now examine the program Itself. (See Figure 9.13.) 

The initialization block resides at memory addresses 0200-0239 hex- 
adecimal! and conditions interrupts and I/O. First, interrupts are con- 
ditioned. Prior to modifying the interrupt vector which resides at ad- 
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Fig. 9.6: Low Memory Map 
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Fig. 9.7: High Memory Map 
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Fig. 9.8: 6522 VIA Memory Map 


dresses ‘‘A67E”’ and ‘‘A67F’”’ (see Figure 9.7) access to this protected 
area of memory must be authorized. This is performed by the AC- 
CESS subroutine, which is part of the SYM monitor: 


JSR ACCESS 


Next, the new interrupt vector can be loaded at the specified location. 
The value ‘‘03EA”’ is entered at address IRQVEC: 


LDA #$EA 
STA IRQVECL 
LDA #$03 

STA IRQVECH 
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Now the internal registers of the 6522 VIA #1 must be conditioned 
to set up the interrupts. The interrupt-enable register (IER) will enable 
or disable interrupts. Each bit position in the IER matches the cor- 
responding one in the interrupt flag register (IFR). Whenever a bit 
position is ‘‘0,’’ the corresponding interrupt is disabled. Bit 7 of IER 
plays a special role. (See Figure 9.10.) When IER bit 7 is ‘‘0,’’ each 
‘*1? in the remaining bit positions of IER wil clear the corresponding 
enable flag. When IER bit 7 is ‘‘1,’’ each ‘‘1’’ written in IER will play 
its normal role and set an enable. All interrupts are, therefore, disa- 
bled by setting bit 7 to ‘‘0’’ and all remaining bits in the IER to ones: 


LDA #$7F 
STA IER 


Next, bit 6, which corresponds to the timer 1 interrupt, is enabled. In 
order to do this, bit 7 of IER is set to ‘‘1,’’ as is bit 6: 


LDA #$C0 
STA TER 


Next, timer 1 will be set in the ‘‘free-running mode.’’ Remember that, 
with the 6522, the timer can be used in either the ‘‘one-shot’’ mode or 
the ‘‘free-running mode.”’ Bits 6 and 7 of the auxiliary control 
register are used to select timer | operating modes. (See Figure 9.11.) 
In this instance, bit 7 is set to ‘‘0’’ and bit 6 is set to ‘1’: - 


LDA #$40 
STA ACR 


Prior to using the timer in the output mode, its counter-register must 
be loaded with a 16-bit value. This value specifies the duration of the 
square pulse to be generated. The maximum value ‘‘FFFF’’ is used 
here: 


LDA #$FF 
STA TILL 
STA TICH 


The actual wave form from timer 1 is shown in Figure 9.12. In order 
to compute the exact duration of the pulse, note that the pulse dura- 
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TEMP = TEMP —1 


Y 
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Fig. 9.9: Detailed Mindbender Flowchart 
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Fig. 9.9: Detailed Mindbender Flowchart (Continued) 
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Fig. 9.10: Interrupt Registers 


tion will alternate between n + 1.5 cycles andn + 2cycles, where n is 
the initial value loaded in the counter register. 
Next, interrupts are enabled: 


CLI 


and the three ports used by this program are configured in the ap- 
propriate direction: 


STA DDRIA Output 
STA DDRIB Output 
STA DDR3B Output 


All LEDs are then cleared: 










OUTPUT 
ENABLE 





ENABLE 


0 
poo (ONE-SHOT)| GENERATE TIME OUT INT WHEN TI LOADED PB7 DISABLED 
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Fig. 9.11: 6522 Auxiliary Control Register Selects Timer 1 Operating Modes 
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Fig. 9.12: Timer 1 in Free Running Mode 


KEY1 LDA #0 
STA PORTIA 
STA PORTIB 


and the blink masks are initially set to all 0’s: 


STA MASKA 
STA MASKB 


LED 10 is now turned on in order to signal to the player that he or she 
should specify the number of digits to be guessed: 


LDA #%00000010 Select LED 10 
STA PORTIB Turn it on 


The key pressed is read using the usual GETKEY routine: 
JSR GETKEY Get # digits 
A software filter is implemented at this point. The value of the key 


read from the keyboard is validated as falling within the range ‘‘1”’ 
through ‘‘9.’’ If it is greater than 9, or less than 1, the entry is ignored: 


CMP #10 
BPL KEY! 
CMP #0 
BEQ KEY! 
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Once validated, the length specified for the sequence is stored at 
memory location DIGITS: 


STA DIGITS 


A sequence of random numbers must now be generated. 


Generating a Sequence of Random Numbers 


The initial random number is obtained from the counter and used to 
start the random number generator. The theory behind this technique 
has been described before. 

Locations RND + 1, RND + 4, and RND + 5 are seeded with the 
same number: 


LDA TILL 

STA RND + 1 
STA RND+ 4 
STA RND + 5 


Then a random number is obtained using the RANDOM subroutine: 


LDY DIGITS Get # of digits to guess 
DEY Count to 0 
RAND JSR RANDOM Filling them with values 


The resulting random number is set to a BCD value which guarantees 
that the last digit will be between 0 and 9: 


SED 
ADC #00 Decimal Adjust 
CLD 
It is then truncated to the lower 4 bits: 
AND #$00001111 
Once the appropriate random digit has been obtained, it is saved at 


the next location of the digit table, using index register Y as a running 
pointer: 
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STA DIGO,Y 


The counter Y is then decremented, and the loop executed until all re- 
quired digits have been generated: 


DEY 
BPL RAND 


Collecting the Player’s Guesses 


Index register X will serve as a running pointer for the ENTRY 
table used to collect the player’s guess. It is initialized to the value 
**0,’’ and stored at memory location XTEMP: 


EXTRA LDA #0 Clear pointer 
STA XTEMP 


LEDs 10 and 11 are then turned on to signal the player that he or she 
may enter his or her sequence: 


LDA #$00000110 
STA PORTIB 


The key pressed by the player is read with the usual GETKEY routine: 
KEY2 JSR GETKEY 


If the key pressed is greater than 9, it is interpreted as a request to 
restart the game: 


CMP #10 
BPL KEY1 


Otherwise, the value of the index register X is retrieved from memory 
location XTEMP and is used to perform an indexed store of the ac- 


cumulator to the appropriate location in the ENTRY table: 


LDX XTEMP 
STA ENTRYO,X Store guess in table 


The running pointer is then incremented, and stored back in memory: 
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INX 
STX XTEMP 


Then, the value of the running pointer is compared to the maximum 
number of digits to be fetched from the keyboard and, as long as this 
number is not reached, a loop occurs back to location KEY2: 


CPX DIGITS All numbers fetched? 
BNE KEY2> If not, get another 


Once the player has entered his or her sequence, the digits must be 
compared to the computer-generated sequence. In anticipation of the 
display of a possible win the LEDs on the board are blanked and the 
masks are cleared: 


LDX #0 

STX PORTIA 
STX PORTIB 
STX MASKA 

STX MASKB 


Two locations in memory will be used to contain the number of cor- 
rect digits and the number of correct digits in the correct location. 
They are initially cleared: 


STX CNT Number of matches 
STX CNT1 Number of correct digits 


Each entry of the DIGO table will now be compared in turn to all en- 
tries of the ENTRYO table. Each digit is loaded from the DIGIT table 
and immediately compared to the corresponding ENTRY contents: 


DIGLP LDA DIGO,X 
‘(CMP ENTRYO,X 


If it is not the right digit at the right place, there is no exact match. We 
will then check to see if the digit appears at any other place within the 
ENTRY table: 


BNE ENTRYCMP 
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Otherwise, one more exact match is recorded by incrementing location 
CNT1, and the next digit is examined: 


INC CNT1 
BNE NEXTDIG 


Let us examine now what happens when no match has occurred. The 
digit (of the number to be guessed) which has just been read and is 
contained in the accumulator should be compared to every digit within 
the ENTRY table. Index register Y is used as a running pointer, and 
the contents of the accumulator are compared in turn to each of the 
digits in ENTRY: 


ENTRYCMP LDY #0 
ENTRYLP CMP ENTRYO,Y 
BNE NEXTENT 


If a match is found, memory location CNT is incremented and the 
next digit is examined: 


INC CNT 
BNE NEXTDIG 


Otherwise, index register Y is incremented. If the end of the sequence 
is reached, exit occurs to NEXTDIG. Otherwise a branch back occurs 
to the beginning of the loop at location ENTRYLP: 


NEXTENT INY Increment guess # pointer 
CPY DIGITS All tested? 
BNE ENTRYLP No: try next one 


The next digit in table DIG must then be examined. The running 
pointer for DIG is contained in index register X. It is incremented and 


compared to its maximum value: 


NEXTDIG INX Increment digit # pointer 
CPX DIGITS All digits checked 


If the limit has not been reached, a branch occurs back to the begin- 
ning of the outer loop at location DIGLP: 
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BNE DIGLP 


At this point, we are ready to turn on the LEDs to display the results 
to the player. 


Displaying the Results to the Player 


The total number of LEDs which must be turned on is obtained by 
adding the contents of CNT to CNTI1: 


CLC Get ready for add 
LDA CNT 
ADC CNT! 


The total is contained in the accumulator and transferred into index 
register Y where it will be used by the LITE routine: 


TAY 
JSR LITE 


The operation of the LITE routine will be described below. Its effect is 
to fill the accumulator with the appropriate number of ones in order 
to turn on the appropriate LEDs. 

The pattern created by the LITE subroutine is then stored in the 
mask: 


STA PORTIA 


For the special case in which the result is 9, the carry bit will have been 
set. This case is explicitly tested: 


BCC CC If carry 0, don’t light PBO. 


and if the carry had been set to 1, Port B will be set appropriately so 
that LED #9 1s turned on: 


LDA #1 Turn PBO on 
STA PORTIB 


Recall] that once masks A and B have been set up, they will 
automatically be used by the interrupt handling routine which will 
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cause the appropriate LEDs to blink. 


CC ~“LDY CNTI 
JSR LITE 
STA MASKA 
BCC TEST 
LDA #01 
STA MASKB 


The program must now test for a win or lose situation. 


Testing for a Win or Lose Situation 


The number of correct digits in the right places is contained in 
CNT1. We will simply compare it to the length of the sequence to be 
guessed: 


TEST LDX CNT1 
CPX DIGITS 


If these numbers are equal, the player has won: 
BEQ WIN 


Otherwise, a low tone will be sounded. The tone duration constant is 
set to ‘‘72,’’ and its frequency value to ‘‘BE”’: 


BAD LDA #$72 
STA DUR 
LDA #$BE 
The TONE subroutine is then used to generate the tone, as usual: 
JSR TONE 
Then a return occurs to the beginning of the program: 


BEQ ENTER 


If a win has occurred, a high-pitched tone will be generated. Its dura- 
tion constant is set to ‘‘FF’’ and its pitch is controlled by setting the 
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frequency constant to ‘‘54’’: 


WIN LDA #$FF 
STA DUR 
LDA #$54 


As usual, the TONE subroutine is used to generate the tone: 
JSR TONE 
The game is then restarted: 


JMP KEY1 


The Subroutines 


Four routines are used by this program. They are: LITE, RAN- 
DOM, TONE, and INTERRUPT HANDLER. The RANDOM and 
TONE routines have been described in previous chapters and will not 
be described again here. 


LITE Subroutine 


When entering this subroutine, index register Y contains the 
number of LEDs which should blink. In order to make them blink it 
is necessary to load the appropriate pattern into the mask patterns 
called MASKA and MASKB. The appropriate number of 1’s has to be 
set in these two locations. A test is first made for the value ‘‘0’’ in Y. 
If that value is found, the accumulator is cleared, as well as the carry 
bit (the carry bit will be used as an indicator for the fact that Y con- 
tained the value ‘‘9’’): 


LITE BNE STRTSH Test Y for zero 
LDA #0 
CLC 
RTS 


Otherwise, the accumulator is initially cleared, and the appropriate 
number of 1’s is shifted left into the accumulator through the carry 
bit. They are introduced one at a time by setting the carry bit, then 
performing a left shift into A. Each time, index register Y is decre- 
mented and the loop is executed again as long as Y is not ‘‘0’’: 
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LDA #0 
SHIFT SEC 
ROL A Shift into position 
DEY 
BNE SHIFT Loop 
RTS 


Note that a rotation to the left is used rather than a shift. If Y did 
contain the value ‘‘9,’’ the accumulator A would be filled with 1’s and 
the carry bit would also contain the value ‘‘1’’ upon leaving the 
subroutine. 


The Interrupt Handler 


This subroutine complements the LEDs each time an interrupt is 
received, i.e., every time timer 1 runs out. It 1s located at memory ad- 
dresses ‘‘03EA’’ and following. Since the accumulator is used as a 
working register by the subroutine, it must be preserved upon entry 
and pushed into the stack: 


PHA 


The contents of Ports 1A and 1B will be read and then complemented. 
Recall that there is no complementation instruction on the 6502, so 
an exclusive OR will be used instead. MASKA and MASKB specify 
the bits to be complemented: 


LDA PORTIA 
EOR MASKA 
STA PORTIA 
LDA PORTIB 
EOR MASKB 
STA PORTIB 


Also recall that the interrupt bit in the 6522 has to be cleared explicitly 
after every interrupt. This is done by reading the latch: 


LDA TILL 


Finally, the accumulator is restored, and a return occurs to the main 
program: 
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PLA 
RTI 


SUMMARY 


In this program, we have used two new hardware resources in the 
6522 I/O chip: the interrupt control and the programmable interval 
timer. Interrupts have been used to implement simultaneous processing 
by blinking the LEDs while the program proceeds, testing for a win or 
lose situation. 


Exercise 9.1; Could you implement the same without using interrupts? 


PMINDKENDER PROGRAM 
sPLAYS MINDIDBENDER GAME: USER SFECIFIES tENGTH OF NUMBER 


9T0 BE GUESSED» THEN GUESSES DIGITS» ANI) COMFUTER TELLS 
sFPLAYER HOW MANY OF THE DIGITS GUESSED WERE RIGHTs ANI 
#HOW MANY GF THOSE CORRECT EIGITS WERE IN THE CORRECT 
sFLACEs UNTIL THE FLAYER CAN GUESS THE NUMBER. ON THE 
*ROARD,s BLINKING LERS INDICATE CORRECT VALUE & CORRECT 
sDIGITs ANT NONBLINKING LEDS SHOW CORRECT DIGIT VALUE» 
yRUT WRONG FLACE. 

¥THE BOTTOM ROW OF LEBS IS USED FO SHOW THE MODE OF 
§THE FROGRAM: IF THE LEFTMOST LED £S LITs THE 

*PROGRAM EXFECTS THE USER TO ENTER THE LENGTH 

7OF THE NUMBER TO BE GUESSED. IF THE TWO LEFTMOST 
sLEDS ARE LITy THE PROGRAM EXFECTS A GUESS. 

§THE PROGRAM REJECTS UNSUITABLE VALUES FOR A NUMBER 
sLENGTHy WHICH CAN ONLY BE 1-9. A VALUE OTHER THAN 
90-9 FOR A GUESS RESTARTS THE GAME. 

9A LOW TONE DENOTES A KAR GUESS» A HIGHT TONEs A WIN, 
PAFTER A WINy THE FROGRAM RESTARTS. 

yAN INTERRUPT ROUTINE IS USED TO BLINK THE LES. 

g 


+=$200 
GETKEY =$100 
ACCESS =$6886 sROUTINE TO UNFROTECT SYS MEM 
IGITS =$00 PNUMBER OF DIGITS TO BE GUESSED 
DUR =$01 STONE DURATION CONSTANT 
XTEMF =$02 3TEMF STORAGE FOR X REG. 
YTEMF =$O3 y7TEMF STORAGE FOR Y REG. 
CNT =$04 sKEEPS TRACK OF # OF MATCHES 
MASKA =$0O% PCONTAINS FATTERN EOR’ED WITH LEM 

?STATUS REGISTER A TO CAUSE BLINK 

MASKE =$06 LED FORT & BLINK MASK 
FREQ =$07 sTEMF STORAGE FOR TONE FREQUENCY 
CNT 1 =$08 $# OF CORRECT DIGITS IN RIGHT PLAC 
RNE =$0O9 sFIRST OF RANEOM # LOCATIONS 
liIGo =$OF sFIRST OF Y DIGIT LOCATIONS 
ENTRYO =$18 yFIRST OF Y GUESS LOCATIONS 
IRRQVECL =$A67E sINTERRUFT VECTOR LOW ORDER BYTE 
TRQUVECH =$A67F ¥¢-ANT HIGH GREER 


96525 VIA #1 REGISTERS: 


Fig. 9.13: Mindbender Program 
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020053 
02033 
02053 
0208: 
O20AE 
O20 
O20F $ 
02123 
02143 
02173 
02193 
O21C; 
O21E3 
2213 
02243 


02253 


02283 
O22R; 
O22E% 
02305 
023355 
02363 
02383 


O23A3 
023C 
O2SF s 
02423 
02445 
02463 
0248? 
024A: 
O24C3 
O24F 3 
02513 
025353 


0255 


02573 


02583 
02583 
O25C% 
O25E 3 
O25F 3 
OR615 
02643 
02653 


20 
A? 
Br 
A? 
Br 
AY 
=) 
Ag 
Bn 
AY 
8th 
AY 
8D 
80 
v8 
en 
8. 
St 
Ag 
8 
80 
83 


85 


A? 
Bn 
20 
C9 
10 
Cc° 
FO 
85 
él 
8S 
85 
85 
fA4 
68 


20 
F8 
69 
su) 
29 
99 
88 
10 


BB 


AG 


AG 


AO 


A0 


AO 


AO 
AO 


AO 
AO 
AC 


AO 
AO 


AO 
01 


AO 


QQ 


IER 
ACR 
TIL 
T1ICH 
FORTIA 
ORLA 
FORTIB 
LURIB 
FORTSE 
NRSE 


bd 


yROUTINE 


y 


KEY1 


wo we “rp we 


RANI! 


TO SET UF 
9L.E.Ne FLASHING 


LDA 
STA 
JSR 
CMF 
RPL 
CMP 
BEQ 
STA 
LIA 
STA 
STA 
STA 
LIy 
Ney 


JSR 
SEI! 
ALC 
CLI 
ANI 
STA 
EY 
BFL 


ACCESS 
#SEA 
IKQVEC 
#303 
TRQVEC 
#37F 
IER 
#$CO 
IER 
#340 
ACK 
#$FF 
TALL 
T1ICH 


DGRIA 
DERE 
QORSE 
#0 
FORTIA 
FORTIB 
MASKA 
MASKRB 


ROUTINE TO GET NUMBER 
FILL THE DIGITS WITH RANDOM NUMBERS FROM 0-9 


#40000 
PORTIB 
GETKEY 
#10 
KEY1 
#0 
KEY2 
“IGITS 
TALL 
RNE+1 
RND+4 
RNDItS 
HIGITS 


RANEIOM 


#00 


#20000 
LIGOry 


RAND 


USING INTERRUPTS 


;INTERRUFT ENABLE REGISTER 
SAUXILIARY CONTROL REGISTER 
STIMER 1 LATCH LOW 

sTIMER 1 COUNTER HIGH 

;VIA 1 PORT A IN/OUT REG 

7UIA 1 FORT A DATA DIRECTION REG. 
;VIA 1 FORT & IN/OUT REG 

;VIA 1 PORT B LATA DIRECTION REG. 
sVIA 3 PORT B IN/OUT REG 

3VTA 3 FORT & DATA DIRECTION REG 


VARIABLES ANID INTERRUFT TIMER FOR 


sUNFROTECT SYSTEM MEMORY 
*LOAD LOW INTERRUPT VECTOR 
L. Pee AND STORE AT VECTOR LOCATION 
sLOAD INTERRUPT VECTOR.... 
H a+eeAND STORE. 
SCLEAR INTERRUFT ENABLE REGISTER 


FENABRLE TIMER 1 INTERRUPT 


sENABLE TIMER 1 IN FREE--RUN MODE 


¥SET LOW LATCH ON TIMER 1 
9SET LATCH HIGH & START COUNT 
VENABLE INTERRUPTS 

‘SET VIA 1 PORT A FOR OUTFUT 
*SET VIA 1 FORT & FOR OUTFUT 
ySET VIA 3 FORT B FOR OUTFUT 
*CLEAR LEDS 


yCLEAR BLINK MASKS 


OF LIGITS TO GUESS» THEN 


0010 LIGHT LED TO SIGNAL USER TO 
*yINFUT OF € OF PIGITS NEEDED. 
yGET # OF TNIGITS 

yIF KEY# 29% RESTART GAME 


sCHECK FOR © TKIGITS TO GUESS 
¥eo¢eO DIGITS NOT ALLOWED 
ySTORE VALID € OF DIGITS 
*>GET RANDOM #» 

sUSE IT TO START RANDOM 


yNUMBER GENERATOR. 
eGET # OF TIGITS TO BE GUESSED» 
p++ AND COUNT TO Or FILILING 


*THEM WITH VALUES. 
*GET RANDOM VALUE FOR DIGIT 


PDECIMAL ADJUST 


1111 PREEP DIGIT <10 
ySAVE IT IN DIGIT TABLE, 


yFILL NEXT DIGIT 


Fig. 9.13: Mindbender Program (Continued) 
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02673 
02693 
O246BE 
O26]: 
02703 
02733 
02763 
02783 
O27AI 
027C$ 
O27E% 
O27F E 
0281? 
02833 


02855 
0287 % 
O284A;: 
O28T 3 
O28F ¢ 
02913 
O29S3 
02953 
02973 
02998 


02983 
O29TI8 
O29F 3 
O2A13 
O2ZA43 
O02A63 
O02A83 
O2AAR 
O2AE$ 
O2ATI3 
O2AF 3 
O2B0! 
02823 
O2B43 
O2BS? 
O2B73 
O2893 
O2EA3 
O2RI3 
02003 
02023 
0204; 
0267% 
02093 
O2CC3 
O2CE3 
O2THO 
02023 
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AO 
AO 
01 


AO 
AQ 


00 


sROUTINE TO FILL GUESS TABLE W/USERS’S GUESSES 
’ 

ENTER LIA #0 PCLEAR ENTRY TABLE FOINTER 
STA XTEMF 

LOA #Z£00000110 sLET USER KNOW THAT GUESSES 
ORA FORTIER 3SHOULD BRE INFUT..«. 

STA FORTIE 36¢e¢WITHOUT CHANGING ARRAY 


KEY2 JSR GETKEY GET GUESS 
CMF #10 ‘IS IT GREATER THAN 9? 
BFL KEY4 2IF YESs RESTART GAME 


LOX XTEMF 7GE 7 POINTER FOR INGEXING 
STA ENTRYO?X ySTORE GUESS IN TABLE 


INX 3 INCREMENT FOINTER 

STX XTEMF 

CPX DIGITS CORRECT # OF GUESSES FETCHED? 
BNE KEY2 ?IF NOT» GET ANOTHER 


« 


y 

*THIS ROUTINE COMPARES USERS’S GUESSES WITH UWIGITS 
*0F NUMBER TO GUESS. FOR EACH CORRECT [DIGIT IN THE 
ICORRECT PLACEs A BLINKING LED £5 LITes AND FOR EACH 
sCORRECT DIGIT IN THE WRONG FLACEs A NONBL TINK ENG 
LED IS tit. 


LIX #0 ICLEAK FOLLOWING STORAGES: 
STX FORTIA sLEES 
STX FORTIER 


STX MASKA sKL INK MASKS 
STX MASKE 


STX CNT yCOUNT OF MATCHES 
STX CNT1 PCOUNT OF RIGHT LIGITS 
DIGLF LOA HIGOrx rLOAD 1ST DIGIT OF # FOR COMPARES 


CMF ENTRYO»x *RIGHT GUESS/RIGHT PLACE? 
BNE ENTRYCMF *NO? IS GUESS RIGHT TIGIT/ 
FWURONG FLACE? 


INC CNT1 PONE MORE RIGHT GUESS/RIGHT PLACE 


RNE NEXTIUIG sEXAMINE NEXT DITGIT OF NUMBER 
ENTRYCMF LIY #0 sRESET GUESS# FTR FOR COMFARES 
ENTRYLF CMF ENTRYOrY sRIGHT DNIGIT/WRONG PLACE? 

BNE NEXTENT >NO» SEE IF NEXT DIGIT Is. 


INC CNT FONE) MORE RIGHT DFGIT/WRONG FLACK 


BNE NEXTOIG rPEXAMINE NEXT DIGIT OF NUMBER 
NEXTENT INY r,INCREMENT GUESS# FTR 

CFY TIGITS VALI. GUESSES TESTED? 

BNE ENTRYLF *NOr TRY NEXT GUESS. 
NEXTHIG INX PINCREMENT CIGIT# FIR 

CeEX NIGITS FALL TIGITS EVALUATEL? 

BNE DIGLF 3NOr CHECK NEXT LIGIT. 


CLC #GET REANY FOR AlYi..-. 
LIA CNT 70F TOTAL MATCHES TO DETERMINE 
AIC CNT1 sNUMBER OF LEDS TO LIGHT 
TAY yXFER A TO Y FOR ‘LIGHT’ ROUTINE 
JSR LITE 3GET FATTERN TO LIGHT LEDS 
STA FORTIA yTURN LEDS GN 
BCC CC ,IF CARRY=0O»% BON’T LIGHT FEO 
LOA #1 
STA PGRTIB sTURN FEO ON. 
CC LDY CNTi 7LOAL # OF LEDS TO BLINK 
JSR LITE *GET PATTERN 
STA MASKA ASTART TO BLINK LEDS 
BCC TEST 7£F CARRY =O» FRO WON’T BIINK 
LIA #1 
STA MASKB 


s 
, 
- 
y 


ROUTINE TO TEST FOR WIN BY CHECKING IF # OF CORKECT 


Fig. 9.13: Mindbender Program (Continued) 


020143 
02163 
O2T8B 3 
O2TA3 
O20C 3 
OTE 3 
O2EO3 
O2ES? 
OOZES: 
O2E73 
O2ZE9 
OZER? 
O2ZEE 3 


O2F 13 
O2F 33 
O2F33 
O2F 6; 
O2F 7% 
O2F 9s 
O2FA: 
O2FB3 


O2FC? 
O2FES 


O2FFs 
03003 
03023 
035043 
0306; 
03083 
OSOAS 
O30C? 
O3OE? 
O30F: 
03112 


03123 
03143 
0316; 
03193 
OS1B? 
O31: 


Ad 
E4 
FO 
Ag 
85 
AD 
2Q 
FO 
A? 
85 
A? 
20 
4c 


Dio) 


83 
Ag 
B80 
AY 
Ad 
A4 


08 
00 
OF 
72 
o1 
KE 
12 
82 
FF 
01 
54 
12 
IE 


O04 
090 


OO 


FR 


OA 
on 
OE 
09 
04 


5 OF 
> OA 


FO 


07 
FF 
00 
00 
O1 
07 


03 


03 
02 


AC 


USING INTERRUPTS 


sUIGITS IN CORRECT PLACES = NUMBER OF DIGITS, IF WIN, 
7A HIGH FITCHED SOUND IS GENERATED? ANT LF ANY 
sPIGIT IS WRONGr A LOW SOUND IS GENERATETL. 


y 

TEST Litx CNT1 LOA NUMBER OF CORRECT HIGITs 
CPX DIGITS ,ALL GUESSES CORRECT? 
BEQ WIN ¢IF YESr FLAYER WINS 

RAD LDA #$72 
STA DUR ySET UP LENGTH OF L.OW TONE 
LDA #$FE *TONE VALUE FOR LOW TONE 
JSR TONE ?>SIGNAL BAD GUESSES W/TONE 
REQ ENTER IGET NEXT GUESSES 

WIN LDA #$FF DURATION FOR WIGH TONE 
STA DUR 
LOA #$54 yTONE VALUE FOR HIGH TONE 
JSR TONE ySIGNAL WIN 
JMF KEY RESTART GAME 


bf 

*ROUTINE TO FILL ACCUMULATOR WITH ‘1’ BITS» STARTING 
7AT THE LOW ORDER ENDs UF TO AND INCLUDING THE 

*BIT FOSITIGN CORRESPONDING TO THE # OF LEDS TO 

yHE LIT OR SET FTO BLINKING. 


y 


LITE BNE STRTFSH rIF Y NOT ZEROQs SHIFT QNES IN 
LDA #0 PSPECTAL CASES RESULT [IS NO ONES. 
CL.c 
RTS 
STRTSH LIA #0 rCLEAR A SO FATTERN WILL SHOW 
SHIFT SEC FMAKE A BRIT HIGH 
ROL A sSHIFT IT TO CORRECT POSITION 
DEY 7RY LOOPING TO # OF GUESS/DIGIT 


rMATCHESr AS FASSEH IN Y 

BNE SHIFT yLOOF “TEL DONE 

RTS 
’ 
*RANDOM NUMBER GENERATOR 
*PUSES NUMBERS AvsBeCeolrErF STORED AS RND THROUGH 
FRND+S$ ADOS BtE+F4+1 AND PLACES RESULT IN Ar THEN 
*SHIFTS A TO Br BR TO Ce ETC. THE NEW RANDOM NUMBER 
PWHICH IS BETWEEN O AND 255 INCLUSIVE IS IN THE 
PACCUMULATOR ON EXIT 


5 
RANDOM SEC s>CARRY ARDS VALUE 1 

LOA RNI+1 PALL Avy KeE AND CARRY 

ADC RNII+4 

ADC RAT+S 

STA RANE 

LIX #4 PSHIFT NUMBERS OVER 
REL LDA RNItyX 

STA RANI» X 

DEX 

BFL REL. 

RTS 


a 


bd 
*7TONE GENERATOR ROUTINE. 
sDURATION OF TONE (NUMBER OF CYCLES TO CREATE) 
*SHOULT BRE IN ‘DUR’ ON ENTRY» AND THE NOTE VALUE 
*>CFREQUENCY) IN THE ACCUMULATOR. 
sy 
TONE STA FREQ 
LIA #$FF 
STA FORTSE 
LDA #$00 
LOX TIUR 
FL2 LEY FREQ 


Fig. 9.13: Mindbender Program (Continued) 
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O31F% 88 FL1 LEY 

0320: 18 CLC 

03213 70 00 BCC .+2 
03233 DO FA BNE FL1 
03253 49 FF EOR #@6FF 
03273 BD 00 AC STA PORTSRB 
O32A2 CA TEX 

O032R3 DO FO BNE FL2 
O32D? 40 RTS 


, 
FINTERRUPT-HANDLING ROUTINE 
7COMPLEMENTS LEDS AT EACH INTERRUFT 


+ = $3EA *LOCATE ROUTINE IN HIGH MEMORY 

OJEA: 48 FHA *SAVE ACCUMULATOR 

OJEB? AI! 01 AO LiA PORTIA 7GET PORT FOR COMPLEMENTING 

OSEE3 45 05 EOR MASKA 7COMPLEMENT NECESSARY BITS 

O3FO;3 81 O1 AO STA PORTIA *STORE COMPLEMENTEL CONTENTS 

OSF33 AL 00 AO LNA PORTIB 700 SAME WITH PORTIR 

OSF46? 435 06 EOR MASKB 

OSFS: BL 00 AQ STA FORTIR 

OSFE: AD 04 AO LDA TILL #CLEAR INTERRUPT BRIT IN VIA 

OSFE3 68 FLA sRESTORE ACCUMULATOR 

OSFF?2 40 RTI *TONEs RESUME FROGRAM 

SYMBOL TAHLE: 

GETKEY 0100 ACCESS 8R86 DIGITS 0000 
DUR 0001 XTEMF 0002 YTEMF 0003 
CNT 0004 MASKA 0005 MASKE 0006 
FREQ 0007 CNT 0008 KND 0009 
DIIGO OOOF ENTRYO 0018 IRQVECL “AGTE 
IRQVECH AGTF. IER AQOE ACR AGOE 
TILL A004 T1CH A005 FORTIA A001 
DDRIA A003 PORT1I£ A000 GER1IB AN02 
PORTSB ACOO DORSE ACO2 KEY1 O22E 
RAND 0258 ENTER 0267 KEY2 0273 
DIGLP 0295 ENTRYCMP O29F ENTRYLF O2Al 
NEXTENT O2AA NEXTDIG O2AF CC 02C7 
TEST 0214 RAD O2TA WIN OOZES 
LITE O2F 1 STRTSH O02F7 SHIFT O2F9 
RANDOM O2FF RPL 030A TONE 03512 
FL2 031D FL OS1F 


DONE 


Fig. 9.13: Mindbender Program (Continued) - 
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10. Complex Evaluation Technique 
(Blackjack) 


INTRODUCTION 


This problem involves a complex evaluation in a simple input/output 
environment and a very smail amount of memory. The program 
generates light and sound effects and operates in real time. 


THE RULES 


The standard game of Blackjack or ‘‘21,’’ is played in the following 
way. A player attempts to beat the dealer by acquiring cards which, 
when their face values are added together, total more points than 
those in the dealer’s hand but not more than a maximum of 21 points. 
If at any time the total of 21 is achieved after only two cards are 
played, a win is automatically declared for the player; this is called a 
Blackjack (the name of the game). Card values range from 1 through 
11. In the standard version of Blackjack the house rules require the 
dealer to ‘‘hit’’ (take a card) if his/her hand equals 16 or fewer points, 
but prohibits him/her from taking a ‘‘hit’’ when his or her hand totals 
17 or more points. 

The version of Blackjack played on the Games Board differs slight- 
ly from the standard game of Blackjack. The single ‘‘deck of cards”’ 
used here contains cards with values from 1 through 10 (rather than 1 
through 11), and the number of points cannot exceed 13 (as opposed to 
21). The dealer in this variation of the game is the computer. 

At the beginning of each hand, one card is dealt to the dealer and 
one to the player. A steady LED on the Games Board represents the 
value of the card dealt to the dealer (the computer). A flashing LED 
represents the card dealt to the player. If the player wants to be ‘‘hit’’ 
(i.e., receive another card) he/she must press key ‘‘C.’’ The player 
may hit several times. However, if the total of the player’s cards ever 
exceeds 13, the player has lost the round (‘‘busted’’) and he/she can 
no longer play. It is then the dealer’s turn. Similarly, if the player 
decides to pass (‘‘stay’’), it becomes the dealer’s turn. The dealer plays 
in the following manner: if the dealer’s hand totals fewer than 10 
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points, the computer deals itself one more card. As long as the hand 
does not exceed 13, the computer will check to see if it needs another 
card. Like the situation with the player, once the total of the com- 
puter’s cards exceeds 13, it loses. No provision has been made for a 
bonus or an automatic win, which occurs whenever the player or the 
dealer gets exactly 13 points with only two cards (a Blackjack). This is 
left as an exercise for the reader. Once the dealer finishes its turn, 
assuming that it does not bust, the values of both hands are compared. 
If the dealer’s total is greater than the player’s, the player loses. Other- 
wise, the player wins. At the beginning of each series the player is 
allocated 5 chips (5 points). Each loss decreases this total by one chip; 
each win increases it by one. The game is over when the player goes 
broke and loses, or reaches a score of 10 and wins. After each play the 
resulting score is displayed as a number between 0 and 10 on the 
appropriate LED. Each time a player wins a hand, the left-most three 
LEDs of the bottom row light up. If the dealer wins the hand, the right- 
most LEDs light up. (See Figure 10.1.) 


290 9090 
29 999 


| 
4 
7 


8 9 7 8 9 
10 ] 12 13 14 15 10 ] 12 13 14 15 
PLAYER WINS COMPUTER WINS 


Fig. 10.1: Indicating the Winner 


A TYPICAL GAME 


When playing a game against the dealer, the player will press key 
**A’’ to be “‘hit’’ (receive an additional card) until either a total of 13 is 
exceeded (a ‘‘bust’’), or until the player decides that his or her total is 
close enough to 13 that he or she might beat the dealer. When the 
player makes this decision to stay, he or she must press key ‘‘C.’’ This 
will start the dealer’s turn, and all other keys will then be ignored. 
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LEDs will light up in succession on the board as the computer deals 
itself additional cards until it goes over ten, reaches 13 exactly, or 
busts. Once the computer has stopped playing, any key may be 
pressed; the player’s score will be displayed and the winner will be in- 
dicated through lit LEDs on the winner’s side. The display will appear 
for approximately one second, then a new hand will be dealt. 

Note that once the value of the computer’s hand has reached a total 
greater than or equal to 10, it will do nothing further until a key is 
pressed. Let us follow this ‘‘typical game.”’ 

The initial display is shown in Figure 10.2. A steady LED is shown 
as a black dot, while a blinking LED is shown as a half dot. In the in- 
itial hand the computer has dealt itself a 1 and the player a 4. The 
player presses key ‘‘A’’ and receives an additional card. It is a 9. The 
situation is shown in Figure 10.3. It’s a Blackjack and the player has 
won. The best the dealer can hope for at this point is to also reach 13. 


e009 
©0900 
9 9 9 


Fig. 10.3: Player Receives A Second Card: Blackjack 
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Let us examine its response. To do this we must pass by hitting *‘C.’’ 
A moment later LED #3 lights up. The total of the computer’s hand 
now is 1 + 3 = 4. It will deal itself another card. A moment later, 
LED #7 hghts up. The computer’s total is now 4 + 7 = 11. It stops. 
Having a lower total than the player, it has lost. Let us verify it. We 
press any key on the keyboard (for example, ‘‘0’’). The result appears 
on the display: LEDs 10, 11 and 12 light up indicating a player win, 
and LED #6 lights up, indicating that the player’s score has been in- 
crease from 5 to 6 points. This information is shown in Figure 10.4. The 





Fig. 10.4: End of Turn: Dealer Loses 


LED display then goes blank and a new hand is displayed. When there 
is a draw, none of the LEDs in the bottom row light up and the score 
is not changed. A new hand is dealt. (If the player busts, the dealer 
wins immediately and a computer win is displayed.) 

Let us play one more game. At the beginning of this hand the com- 
puter has dealt itself a 5, and the player has a 6. The situation is shown 
in Figure 10.5. Let us ask for another card. We hit key ‘‘A’’ and are 
given a 7. This is almost unbelievable. We have thirteen again!! The 
situation is shown in Figure 10.6 It is now the computer’s turn. Let us 
hit ‘‘C.’’ LED #10 lights up. The computer has 15. It has busted. The 
situation is shown in Figure 10.7. Let us verify it. We press any key on 
the keyboard. The three left-most LEDs on the bottom row (LED 10, 
11, and 12) light up and a score of 7 is displayed. This is shown in 
Figure 10.8. A moment later the display goes blank and a new hand is 
started. 
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Fig. 10.5: Seco 
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Fig. 10.6: Blackjack Again 


Dealer Busts 


Fig. 10.7: 
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Fig. 10.8: Final Score Is 7 


THE PROGRAM 


The detailed flowchart for the Blackjack program is shown in 
Figure 10.9, and the program is listed at the end of the chapter. As 
usual, a portion of page 0 has been reserved for the variables and flags 
which cannot be held in the internal registers of the 6502. This area is 
shown in Figure 10.10 as a ‘‘memory map.’’ These variables or flags 
are: 

DONE: This flag is set to the value ‘‘0’’ at the beginning of the 
game. If the player goes broke, it will be set to the value ‘‘11111111.’’ If 
the player scores 10 (the maximum), it will be set to the value ‘‘1.”’ 
This flag will be tested at the end of the game by the ENDER routine 
which will display the final result of the game on the board and light 
up either a solid row of LEDs or a blinking square. 

CHIPS: This variable is used to store the player’s score. It is initial- 
ly set to the value ‘‘5.’’ Every time the player wins a hand it will be in- 
cremented by 1. Likewise, every time the player loses a hand, it will be 
decremented by 1. The game terminates whenever this variable reaches 
the value ‘‘0’’ or the value ‘‘10.”’ 

MASKA, MASKB: These two variables are used to hold the masks 
or patterns used to blink the LEDs connected respectively to Port A 
and Port B on the Games Board. 

PHAND: It holds the current hand total for the player. It is incre- 
mented every time the player hits (i.e., requests an additional card). 
card). 

CHAND: This variable holds the current hand total for the com- 
puter (the dealer). 
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START 
INITIALIZE 
























CLEAR LEDs 
DRAW FIRST CARDS 
FOR EACH HAND 


COMPUTER’S 
TOTAL OVER 
10? 






HIT COMPUTER'S 
HAND 


1S COMPUTER'S 
HAND 3» 13? 


COMPARE HANDS 





BRANCH P>C YES 


ON RESULTS? 






GIVE PLAYER 
ANOTHER CARD 








INCREMENT 
SCORE SET 
END FLAG IF 
SCORE 50 









1S TOTAL 
OVER 137? 





CLEAR LEDs 
DISPLAY SCORE AND 
RESULTS OF HAND 











DECREMENT SCORE 
SET END FLAG IF 
SCORE = 0 


Fig. 10.9: Blackjack Flowchart 


195 


ADVANCED 6502 PROGRAMMING 


TEMP: This is a temporary variable used by the RANDOM routine 
to deal the next card to either player. 

RND through RND + 5: These six locations are reserved for the 
random number generating routine called RANDER. 

WHOWON: This status flag is used to indicate the current winner 
of the hand. It is initially set to ‘‘0,’’ then decremented if the player 
loses or incremented if the player wins. 

At the high end of memory the program uses VIA #1, the ACCESS 
subroutine provided by the SYM monitor, and the interrupt-vector at 
address A67E, as shown in Figure 10.1]. 

Let us now examine the program operation. For clarity it should be 
followed on the flowchart in Figure 10.9. 


Status flag for end of game 
CHIPS Player score 


MAS 


$ 


Masks used to flash the LEDs 
MASKB 
PHAND Total for player 
CHAND Total for computer 


TEMP 


Random numbers 


WHOWON Status for current winner 








Fig. 10.10: Low Memory Map 
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Fig. 10.11: High Memory Mop 
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Program Initialization 


The timer on 6522 VIA #1 will be used to generate the interrupts 
which blink the LEDs. These interrupts will cause a branch to location 
0O3EA where the interrupt-handling routine is located. The first step is, 
therefore, to load the new value into the interrupt vector, 1.e., 
‘*O3EA,’’ at the appropriate memory location: 


BLJACK JSR ACCESS Unprotect system memory 
LDA #$EA Load low interrupt vector 
STA INTVECL 
LDA #$03 High vector 


STA INTVECH 


As described previously, the interrupt-enable register is first loaded 
with the value ‘‘O1111111,’ and then with the value ‘‘11000000’’ in 
order to enable the interrupt for timer 1: 


LDA #$7F Clear timer interrupt-enable 
STA IER 

LDA #$CO Enable timer 1 interrupt 
STA IER 


Loading the value ‘‘7F’’ clears bits 0 through 6, thereby disabling all 
interrupts. Then, loading the value ‘‘CO’’ sets bit 6, which is the 
interrupt-bit corresponding to timer 1. (See Figure 9.10.) As in the 
previous chapter, timer 1 is put in the free-running mode. It will then 
automatically generate interrupts which will be used to blink the 
LEDs. In order to set it to the free-running mode, bit 6 of the ACR 
must be set to ‘‘1”’: 


LDA #$40 Put timer 1 
STA ACR In free run mode 


The latches for timer 1 are initialized to the highest possible value, i.e., 
FFFF: 


LDA #$FF 
STA TILL Low latch of timer 1 
STA T1CH High latch and start timer 
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Finally, now that the timer has been correctly initialized, interrupts 
are enabled on the processor: 


CLI Enable interrupts 


LED Ports A and B configured as outputs (remember that the ac- 
cumulator still contains the value ‘‘FF’’): 


STA DDRA 
STA DDRB 


AS a precaution, the decimal flag is cleared: 


CLD 
The player’s score is initialized to the value 5: 


LDA #5 Set player’s score to 5 
STA CHIPS 


The DONE flag is initialized to the value ‘‘0’’: 


LDA #0 Clear done flag 
STA DONE 


The LEDs on the board are cleared: 
STA MASKA 
STA MASKB 
STA PORTA Clear LEDs 
STA PORTB 

And the WHOWON flag is also initialized to ‘‘0’’: 
STA WHOWON _ Clear flag 


Dealing the First Hand 


We are now ready to play. Let us deal one card to both the dealer 
and the player. The LIGHTR and the BLINKR subroutines will be 
used for that purpose. Each of these subroutines obtains a random 
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number and lights the corresponding LED. LIGHTR lights up a 
steady LED while BLINKR blinks the LED. These two subroutines 
will be described later. We set one LED blinking for the player: 


JSR BLINKR Set random blinking LED 
and we save the first total for the current player’s hand: 

STA PHAND Store player’s hand 
then we do the same for the computer: 


JSR LIGHTR Set random steady LED 
STA CHAND Store computer’s hand 


Hit or Stay? 


We will now read the keyboard. If the player presses ‘‘A,’’ this in- 
dicates a requested hit and one additional card must be dealt to the 
player. If ‘‘C’’ is pressed, the player ‘‘stays’’ (passes) and it becomes 
the computer’s turn to play. All other keys are ignored. Let us first ob- 
tain the key closure from the keyboard: 


ASK JSR GETKEY 
The key value must now be compared to ‘‘A’’ and to ‘‘C’’: 


CMP #$0A 

BEQ HITPLR 

CMP #$0C Is it computer’s turn? 
BEQ DEALER 


If any other key has been pressed, it will be ignored and a new key will 
be read: 


JMP ASK Invalid key, try again 


At this point in the program, we will assume the situation warrants 
a ‘‘hit.”” One more card must be dealt to the player. Let us set one 
more LED blinking. Naturally, the BLINKR subroutine, as well as the 
LIGHTR subroutine, are careful not to deal a card that has already 
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been dealt. How this is achieved will be described later (this 1s the pur- 
pose of the SETBIT subroutine). 


HITPLR JSR BLINKR Set random LED 


As soon as a new card has been dealt to the player, we compute the 
player’s new total for the current hand: 


CLC 
ADC PHAND Tally player’s hand 
STA PHAND 


The new total must be checked against the value ‘‘13.’’ As long as the 
player has 13 or less, he or she may play again, 1.e., either be hit or 
stay. However, if the player’s score exceeds ‘‘13,’’ he or she busts and 
loses the play. Let us check: 


CMP #14 Check for 13 
BCC ASK Ask ifs= 13 
JMP LOSE Busted 


It is now the dealer’s turn. Since the computer is much faster than the 
player in deciding whether it wants to hit or to stay, we will first slow it 
down to provide more suspense to the game: 


DEALER JSR DELAY 


The delay subroutine also extends the period of time between the suc- 
cessive decisions made by the computer to make the computer appear 
more ‘‘human-like.”’ 

Before dealing another card to the computer (the dealer), let us ex- 
amine its total. The house rule is that the dealer’s total cannot exceed 
‘*10.’’ (Naturally, other algorithms are available from Blackjack ex- 
perts.) The computer hand is therefore checked against the value 
*°10.’’ If this value is exceeded, a branch occurs to location WINNER 
where the winner will be decided. Otherwise, a new card will be dealt 
to the computer: 


LDA CHAND 


CMP #10 Check hand for limit 
BCS WINNER Yes. Decide winner. 
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As long as the hand totals less than ‘‘10,’’ the dealer requests a hit. A 
new card is dealt to the dealer in exactly the same way that it was dealt 
previously to the player: 


JSR LIGHTR Set random LED 
The dealer’s new total is computed: 
CLC 
ADC CHAND Tally computer’s hand 
STA CHAND 


Just as in the case of the player before, it is compared against the value 
‘13’ to determine whether or not the dealer has busted: 


CMP #14 Is hand<= 13? 
BCC DEALER Yes: another hit? 
JMP WIN Busted: player wins 


If the computer has busted, a jump occurs to location WIN which in- 
dicates a ‘‘win’’ by the player. Otherwise, a branch back to location 
DEALER occurs, where the computer will determine whether or not it 
wants to receive an additional card. Let us now determine the winner. 
Both hands are compared: 


WINNER LDA CHAND 
CMP PHAND Compare hands 


There are three possible cases: equal scores, player wins, and player 
loses. 


BEQ SCORER 
BCC WIN 


In the case that both scores are equal, a jump occurs to location 
SCORER which will display the current status. If the player wins, a 
branch occurs to location WIN and the sequence will be described 
below. First, let us examine what happens when the player loses. 


The Player Loses 


A special flag, called WHOWON, is used to store the status at the 
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end of each play. It is decremented to indicate a loss by the player: 
LOSE DEC WHOWON 
The player’s score 1s decremented: 
DEC CHIPS 


The player’s score must be compared to the value ‘‘0.’’ If the player’s 
score has reached ‘‘0,’’ he or she is broke and has lost the game. In 
this case, the DONE flag is set to ‘£11111111;’’ otherwise, it is not 
changed. Finally a jump occurs to SCORER where the final score will 
be displayed: 


BNE SCORER Player broke? 
DEC DONE Yes: set lose flag 
JMP SCORER Finish game 


Player Has Won 
Similarly, when the player wins, the WHOWON flag is set to ‘‘1”’: 


WIN INC WHOWON 
The score is incremented: 
INC CHIPS 
It is then compared to the value ‘‘10’’: 


LDA CHIPS 
CMP #10 Chips = 10? 


If the maximum score of ‘‘10’’ has been reached, the DONE flag is set. 


BNE SCORER 
INC DONE Set done flag 


Displaying the final status is accomplished by the SCORER routine. 


Remember that the final status will be displayed only at the player’s 
request — when any key is pressed on the keyboard. Let us wait for 
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this: 
SCORER JSR GETKEY 
Before displaying the status, all LEDs on the board are turned off: 


LDA #0 

STA MASKA 
STA MASKB 
STA PORTA 
STA PORTB 


The player’s score must now be displayed on the board. Let us read it: 


LDX CHIPS 
BEQ ENDER 


If the player has no more chips, a branch occurs to location ENDER 
and the game will be terminated. Otherwise, the score is displayed. 
Unfortunately, LEDs are numbered internally ‘‘0’’ through ‘‘7,’’ even 
though they are labeled externally ‘‘1’’ through ‘‘8.’’ In order to light 
up the proper LED, the score must therefore first be decremented: 


DEX 


then a special subroutine called SETMASK is used to display the ap- 
propriate LED. On entry to the SETMASK routine, it is assumed that 
the accumulator contains the number of the LED to be displayed. 


TXA 
JSR SETMASK 


Now that the proper mask has been created to display the score, we 
must indicate the winner. If the player won, the three left-most LEDs 
in the bottom row will be lit; if the computer won, the three right-most 
LEDs will be lit. If it was a tie, no LEDs will be lit on the bottom row. 
Let us see who won: 


LDA WHOWON 
BEQ ENDER Tie: do not change LEDs 
BMI SC 
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If the player lost, a branch occurs to address SC. If, on the other 
hand, the player won, the three left-most LEDs in the bottom row are 
lit: 


LDA #$0E Player won: set left LEDs 
JMP SCO 


If the player lost, the three right-most LEDs are lit: 
SC LDA #$B0 Player lost: set right LEDs 


Contained in the accumulator is the appropriate pattern to light the 
bottom row of LEDs, and this is sent to the Games Board: 


SCO ORA PORTB 
STA PORTB 


End of a Play 


The ENDER routine is used to terminate each play. If the score was 
neither ‘‘0’’ nor ‘‘10,’’ a new hand will be dealt: 


ENDER JSR DELAY2 
LDA DONE 
BNE ENO 
JMP START 


Otherwise, we check the DONE flag for either a player win or a player 
loss. If the player lost the game, the bottom row of LEDs is lit and the 
program ends: 


ENO BPL ENI1 $01: Jump on win condition 
LDA #$BE Solid row of LEDs 
STA PORTB 
RTS Return to monitor 


In the case of a player win, a blinking square is displayed and the pro- 
gram is terminated: 


EN1 LDA #$FF 
STA MASKA 
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LDA #$01 
STA MASKB 
RTS 
Subroutines 
SETBIT Subroutine 


The purpose of this subroutine is to create the pattern required to 
light a given LED. Upon entering the subroutine, the accumulator 
contains a number between ‘‘0”’ and ‘‘9’’ which specifies which LED 
must be lit. Upon exiting the subroutine, the correct bit is positioned 
in the accumulator. If the logical LED number was greater than ‘‘7,’’ 
the carry bit is set to indicate that output should occur on Port B 
rather than on Port A. Additionally, Y will contain the external value 
of the LED to be lit (1 to 10). 


Let us examine the subroutine in detail. The LED number is saved 
in index register Y: 
SETBIT TAY Save logical number 


It is then compared to the limit value ‘‘7.’’ 


CMP #8 
BCC SBO 


If the value was greater than 7, we subtract 8 from it: 


SBC #8 Subtract if >7 


Exercise 10-1: Recall that SBC requires the carry to be set. Is this the 
case? 


Now we can be assured that the number in the accumulator is be- 
tween ‘‘0’’ and ‘‘7.’’ Let us save it in X: 


SBO TAX 


A bit will now be shifted into the correct position of the accumulator. 
Let us first set the carry to ‘‘1’’: 


SEC Prepare to roll 
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We clear the accumulator: 
LDA #0 
then we roll in the bit to the correct position: 


SBLOOP ROL A 
DEX 
BPL SBLOOP 


Note that index register X is used as a bit-counter. The accumulator is 
now correctly conditioned. The external number of the LED to be lit is 
equal to the initial value which was stored in the accumulator plus 
one: 


INY Make Y the external # 


If LEDs 9 or 10 must be lit, the carry bit must be set to indicate this 
fact. Port B will have to be used rather than Port A: 


CPY #9 Set carry for Port B 
RTS 


Exercise 10-2: Compare this subroutine to the LIGHT subroutine in 
the previous chapter. 


Exercise 10-3; How was the carry set for LED #9 at the end? 
LIGHTR Subroutine 


This subroutine deals the next card to the dealer (computer). It must 
obtain a random number, then make sure that this card has not 
already been dealt, i.e., that it does not correspond to a card which 
has already been displayed on the board. If it has not already been 
displayed, the random number can be used as the value of the next 
card to be dealt. A steady LED will then be lit on the board. 

Let us first get a random number: 


LIGHTR JSR RANDOM 


It will be shown below that the RANDOM routine does not just ob- 
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tain arandom number but also makes sure that it does not correspond 
to a card already used. All we have to do then is position the correct 
bit in the accumulator and display it. Let us use the SETBIT routine 
we have just described in order to position the bit in the accumulator: 


JSR SETBIT 


We must determine whether Port A or Port B must be used. This is 
done by testing the carry bit which has been conditioned by the SET- 
BIT subroutine: 


BCS LLO 


We will assume that Port A must be used. The new bit will be added to 
the display by ORing it into Port A: 


ORA PORTA 
STA PORTA 


The value of the card must be restored into the accumulator. It had 
been saved in the Y register by the SETBIT routine: 


TYA 
RTS 


In case Port B is used, the sequence is identical: 


LLO ORA PORTB 
STA PORTB 
TYA Restore value 
RTS 
BLINKER Subroutine 


This subroutine operates exactly like LIGHTR above except that it 
sets an LED flashing. Note that it contains the SETMASK subroutine 
which will set the proper LED flashing and exit with a numerical value 
of the LED in the accumulator: 


BLINKR JSR RANDOM Get random number 
SETMASK JSR SETBIT 
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BCS BLO Branch if Port B 
ORA MASKA | 
STA MASKA 
TYA Restore value 
RTS 

BLO ORA MASKB 
STA MASKB 
TYA 
RTS 


RANDOM Subroutine 


This subroutine will generate a random number between ‘‘0’’ and 
‘9’? which has not already been used, i.e., which does not correspond 
to the internal number of an LED that is already lit on the Games 
Board. The value of this number will be left in the accumulator upon 
exit. Let us obtain a random number: 


RANDOM JSR RANDER Get 0-255 number 


The RANDER subroutine is the usual random number generator 
which has been described in previous chapters. As usual, we must re- 
tain only a number between ‘‘0’’ and ‘‘9.”’ We will use a different 
strategy here by simply rejecting any number greater than ‘‘9’’ and 
asking for a new random number if this occurs: 


AND #$0F 
CMP #10 
BCS RANDOM 


Exercise 10-4: Can you suggest an alternative method for obtaining a 
number between “‘0’’ and ‘'9’’? (Hint: such a method has been described 
in previous chapters.) 


A random number between ‘‘0’’ and ‘‘9’’ has now been obtained. 
Let us obtain the corresponding bit position which must be lit and save 
it in location TEMP: 


JSR SETBIT Set bit in position 
STA TEMP 


We will now check to see if the corresponding bit is already lit on either 
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Port A or Port B. Let us first check to see if it is Port A or Port B: 


BCS RNO Determine Port A or B 


Assuming that it is Port A, we must now find which LEDs in Port A 
are lit. This is done by combining the patterns for the blinking and 
steady LEDs, which are, respectively, in Mask A and Port A: 


LDA MASKA 
ORA PORTA Combine Port and Mask 


Then a check is made to see whether or not the bit we want to turn on 
is already on: 


JMP RNI1 


If it is on, we must obtain a new random number between ‘‘0’’ and 
¢*Q”?- 


RN1 AND TEMP 
BNE RANDOM 


If the bit was not already on, we simply exit with the internal value of 
the LED in the accumulator: 


DEY 
TYA 
RTS 


Similarly, if an LED on Port B had to be turned on, the sequence is: 


RNO LDA MASKB 
ORA PORTB 
AND TEMP 
BNE RANDOM 
DEY 
TYA 
RTS 


RANDER Subroutine 


This subroutine generates a random number between ‘‘0’’ and 
**255.”’ It has already been described in previous chapters. 
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DELAY Subroutines 


Two delay loops are used by this program: DELAY, which provides 
approximately a half-second delay and DELAY2, which provides 
twice this delay or approximately one second. Index registers X and Y 
are each loaded with the value ‘‘FF.’’ A two-level nested loop is then 
implemented: 


DELAY2 JSR DELAY 

DELAY LDA #$FF 
TAY 

DO TAX 

D1 DEX 
LDA #$FF 
BNE D1 
DEY 
BNE DO 
RTS 


Exercise 10-5: Compute the exact duration of the DELAY subroutines. 


Interrupt Handler 


The interrupt routine is used to blink LEDs on the board, using 
MASKA and MASKB, every time that the timer generates an inter- 
rupt. No registers are changed. The operation of this routine has been 
described in the preceding chapter: 


PHA 

LDA PORTA 
EOR MASKA 
STA PORTA 
LDA PORTB 
EOR MASKB 
STA PORTB 
LDA TILL 
PLA 

RTI 


SUMMARY 


This program was more complex than most, despite the simple strategy 
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used by the dealer. Most of the logical steps of the algorithm were 
accompanied by sound and light effects. Note how hittle memory is re- 
quired to play an apparently complex game. 


Exercise 10-6: Note that this program assumes that the contents of 
memory location RND are reasonably random at the beginning of the 
game. If you would like to have a more random value in RND at the 
beginning of the game, can you suggest an additional instruction to be 
placed in the initialization phase of this program? (Hint: this has been 
done in previous programs.) 


Exercise 10-7: In the ENDER routine are the instructions “‘BNE 
ENO” and “JMP START’”’ both needed? If they are not, under what 
conditions would they be needed? 


Exercise 10-8: “‘Recursion’’ describes a routine which calls itself. Is 
DELAY 2 recursive? 


7 ~~ BLJIACK FROGRAM ae 
ACCESS = $8k86 
INTVECL = $A67E 
INTVECH = $AS7F 
IER = $A00E 
ACR = $A00OB 
TIL. = $A004 
T1CH = $A00S 
DORA = $A003 
DORE = GAOD0D? 
FORTA = $A001 
FORTE = $A000 
MASKA = $C2 
MASKE = $03 
CHIFS = $01 
DONE = $0 
FHANI = $(04 
CHAND = $C5 
TEMF: = $£6 
RNG = $C7 
WHOWON = $CT 
GETKEY = $1900 
. = $200 


’ 
SHLACKJACK GAME? USES A “DECK’ OF 10 CARTS. CARDS NEALT 
*>TO THE FLAYER ARE FLASHING LED'S. ONES IN THE COM~ 
*PUTER’S HAND ARE STEADY. CARDS ARE DEALT BY A RANTIOM 
NUMBER GENERATOR WHICH IS NON-REPETITVE. NUMERICAL 
rFTOTALS ARE KEPT IN ZERO FAGE LOCATIONS “’FPHANI’ AND 
>‘CHANDTD’. FORTA AND FORTR ARE THE QUTFUT FORTS TQ THE 
PLET WISFLAY. MASKA ANI MASKH ARE USED BY THE INTERRUPT 
FROUTINE TO FLASH SELECTED LEn’S. ‘’BONE’ ANI 
»’WHOWON’ ARE STATUS FLAGS TO DETERMINE ENIt OF GAME AND 
FWHO WON THE CURRENT HANI. 


Fig. 10.12: Blackjack Program 
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? 
’ FROGRAM STARTS BY INITIALIZING THE TIMER AND THE 
sINTERRUFT VECTOR. THE OUTPUT PORTS ARE TURNEN ONy 
SAND) THE STATUS FLAGS ARE CLEARED, 


? 
O200% 20 86 BR BLJACK JSR ACCESS sUNFROTECT SYSTEM MEMORY 
0203: AY EA LDA #$EA FLOAD LOW INTERUFT VECTOR 
0205+ SD 7E AG STA INTFVECL. 
OZ208% AP 03 LUA #%05 SLOAD HIGH INTERUFT VECTOR 
O20A Bl 7F AS STA INTVECH 
O20U% AY 7F LNA #$7F yCLEAR TIMER INTERUPT ENABLE 
O2ZOF? SI OF AQ STA TER 
O212: AY CO LUA #$C0 FENABLE TIMER 1 INTERUPT 
O214: BL OF AO STA TER 
0217: AP 40 LTA #$40 yFUT TIMER 1 IN FREE RUN MODE 
O2193 BI OR AD STA ACK 
O2103 AD FF LTA #$FF 
OZIE: 8Ih 04 AO STA TILk PGET LOW LATCH ON TIMER 1 
O221: 80 05 AO STA TiC FSET HEGH LATCH & START TIMER 
02243 38 CII PENAGBLE FROCESSOR INTERUFTS 
0225: 82 03 AD STA DTDRKA PSET LED FORTS TO OQUTFUTS 
0228: BI O02 AD STA TRE 
O22BR i Le CL.0 
02203 AI OS LTA €or PSET FLAYER’S SCORE TO 3 
O22E3 85 Ci STA CHIFS , 
023503 AP 00 LTiad #0 PCLEAR DONE FLAG 
O232) 85 C0 STA TONE 


’ 
sNEW HANTS RISFLAY IS CLEAREDs BOTH HANDS ARE 
FARE SET WITH START VALUES» AND THE CORRESFONINING 
yLED’S ARE SET. 


, 
02343 85 C2 START STA MASKA gyCLEAR BLINKER MASKS? IT IS 
02343 85 CS STA MASKE s,ASSUMED THAT ACC. CONTAINS ZERQ 
0238; 80 01 AO STA FORTA y¥CLEAR LED'S 
O23B: Bh 00 AO STA FORTE 
O23E: 85 Ch STA WHOWON *CLEAR FLAG FOR HANTI 
02402 20 OF O03 JSR BLINKR §SET RANTIOM BLINKING LEX 
92433 BS C4 STA FHANT ISTORE FLAYER’S HAND 
02453 20 F7 O2 JSR LIGHTR y>SET A STEATY RANDOM LEY 
0248: 85 CS STA CHANT y>STORE COMFUTER’S HAND 


g 
PREY INFUT? ‘A’ IS A HITs °C’ IS COMPUTER’ TURN 
PALL OTHERS ARE IGNOREL 


, 

O24AS 20 00 O1 ASK JSR GETKEY GET A KEY INFUT 

024013 CP OA CHE #$0A yDOES FLAYER WANT A HIT? 

O24F? FO O07 BEQ HITFLR *YES? BRANCH 

02513 CP? OC CMF #$0C IS IT “COMP TURN’ KEY? 

02533 FO 12 BEQ DEALER #YES 

(O2553 4€ 4A 02 JMF ASK yRAI KEYs TRY AGAIN 
+d 

02583 20 OF 03 HITFLRE JSR RBLINKR rSET A RANTOM Le 

O2582 18 CLC 

O25C3 65 (4 ANC FHAND TALLY FLAYER’S HANE 

O25E3 Ba C4 STA PHANE! 

0246073 C? OE CMP #14 >CHECK HAND 

02623 90 EG BCC ASK 71S <=13» OK 

02643 4C 87 02 JMP LOSE *BUSTEDs GO TO LOSE ROUTINE 
’ 

0267? 20 Sl 03 TEALER JSk TNELAY IQELAY EXECUTION OF ROUTINE 

O26As AS CS LDA CHANE 71S CONF OVER HOUSE LIMIT? 

O26C? CY OA CMF #10 

O26E% BO OF BCS WINNER gYES» FIGURE WINNER 

02703 20 F? O02 JSR LIGHTR *NO°SET RANDOM LED 

0273+ 18 CLC 


Fig. 10.12: Blackjack Program (Continued) 
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02743 
02763 
02783 
O27A$ 
O27C3 


O27F 3 
02813 
0283: 
.02853 
02873 
02893 
O20B? 
O28? 
O28F 3 
02923 
02943 
02963 
02983 
029A: 
029C3 


O29E% 
O2AL$ 
O2A3% 
O2AS 3 
O2A7 3 
O2AAE 
O2AD3 
O2AF 3 
02813 
O2R23 
0233 


02863 
02883 
O2BA: 
O2BCs 
O2RE $ 
O2C1s 
O20 3% 
0207068 
02093 


02CC; 
02CE3 
O2T103 
02032 
O205% 
O2073 
O2TIA? 
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465 
85 
C9 
90 
4C 


CS 
CS 
OE 
ERB 
92 


C3 


O1 


AQ 
AOD 


03 


02 


AQ 


ADC 
STA 
CMF 
RCC 
JMF 


sFIGURE WINNER? 


CHANT: 
CHANII 
#24 
NEALER 
WIN 


“WINS 


sTALLY COMFUTER’S HAN 


3IS HAND “=13? 
$YESs ANOTHER HiT? 
sBUSTED» PLAYER WINS 


y 


AND ‘LOSE’ TALLY SCORE» 


SAND DETERMINE IF THE PLAYER HAS WON OR LOST 


$THE GAME. 
sWON THE 
#NOTHING IS 
3 

WINNER LIA 
CMF 


BEQ 


RCC 


LOSE GEC 
DEC 
BNE 
NEC 
JMF 
INC 
INC 
LOA 
CME 
ENE 
INC 


WIN 


¥ 
sHISFLAY SCORE BY LIGHTING 1 OF 10 LEI’S, 
sROTTOM ROW OF LED‘’S IS SET TO SHOW WHETHER 
THE COMPUTER WON THE HAND. 
THEN A TEST IS MADE FOR AN END OF GAME CONDITION 
PIF SUCH A CONDITION EXISTS» 


»OR 
ITHUS » 


THE 


CHANT 
FHANE 
SCORER 
WIN 
WHOWON 
CHIFS 
SCORER 
NONE 
SCORER 
WHOWON 
CHIFS 
CHIFS 
#10 
SCORER 
LONE 


9SET ACCORDINGLY » 


*7IT IS ASSUMEL 


;0ON THE STACK. 


g 

SCORER JSR 
LIA 
STA 
STA 
STA 
STA 
LIX 
REQ 
DEX 
FXA 
JSR 


LIA 
HEA 


EMI § 


L.IKA 


JMP 


SC 
SCO 


LIA 
ORA 
STA 
ENDER ISK 
LOA 
BNE 
JMF 
BFL 
LtA 
STA 
RTS 


ENO 


GETKEY 
#0 
MASKA 
MASKE 
PORTA 
FORTE 
CHIFS 
ENTER 


SE TMASK 


WHOWON 


#580 
FORTE 
FORTE 
DELAY2 


TONE 
ENO 
START 
EN 
#$RE 
FORTE 


“WHOWON ’ 
FARTICULAR HANI. 
AFFECTED. 


FLAG IS SET TO SHOW WHO 
IF THE HANES ARE EQUAL » 
*>COMPARE HANDS 


NO CHANGE 
GREATER 


sARE EQUAL» 
gPLAYER‘’S HAND 
yLOSE ROUTINE 
sTALLY SCORE 
7IS PLAYER KROKE? 
*YESs SET END OF GAME FLAG? LOSE 
7WIN ROUTING 
¥TALLY SCORE 
FADD WINNINGS 
PIF CHIFS=10* SET END OF GAME FLAG 
*SET END OF GAME FLAG: WIN 


THE 
THE FLAYER 
THE EISFLAY IS HELD 


THE LET’S ARE 
THE FROGRAM IS TERMINATED. 


THAT THE ADDRESS OF THE MONITOR IS 


sHOLID LAST STANDINGS OF CARDS 
yCLEAR LED’S 


POISFPLAY NUMBER OF CHIFS 
FATIUST SO SUBROUTINE SETS 
§THE RIGHT LED 


a 


9 
PSEE 
¥TIE~ 


WHO WON HAND 

NO NOY AFFECT LED’S 
sPLAYER WON- SET THREE LEFT LIers 
sFLAYER LOST- SET THREE RIGHT LEN? 
9SET LED FORT 


FHOLIT) DISFIAY 
, 

PCHECK FOR E-NY!t OF GAME CONDITION 
START NEW HANES 

WIN CONDITION 

ROW LETS 


AZERO» 
rhOl» 
ISET SOLIM 


#RETURN TO MONTTOR 


Fig. 10.12: Blackjack Program (Continued) 


O2TBS 
O2UN? 
O2UF $ 
O2E1: 
O2E3$ 


O2E 4: 
O2ZES3 
O2E73 
O2E9: 
OZER: 
O2EC: 
O2ENS 
O2EF 3 
O2FO?; 
O2F 13 
O2F 33 
O2F43 
O2F 6: 


QO2F7% 
O2FAs 
O2FDs 
O2FF 
Q0302%3 
0305: 
035063 
03073 
OS0As 
O30D? 
OS0E: 


OSOF ¢ 
03123 
Q3153 
03173 
OSLFs 
0318; 
O31C3 
O310s 
OSLF 3 


A? 
BS 
A? 
BS 


69 


AB 
Cy 
70 
E9 
AA 
38 
A? 
2A 
CA 
10 
cs 
CO 
60 


FF 
C2 
01 
C3 


0B 
02 
08 


00 


FC 


09 


23 
E4 
08 
01 
01 


00 
00 


23 
E4 
06 
C2 
C2 


C3 
C3 


03 


" 


a 


AQ 
AQ 


AQ 
AQ 


03 
02 
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EN1 LIA €$FF ySET BLINKING SQUARE 
STA MASKA 
LUA #$01 
STA MASKB 
RTS sRETURN TO MONITOR 
5 


--SUBROUTINES-- 


—> w> we 


? 
ySET A BIT IN ACCUMULATOR? ENTER WETH A LOGICAL VALUE®r 
yI.E. O-9r IN ACC. EXITS WITH A NUMERICAL VALUE(1~-10> 
BIN Ys AND THE BIT FOSTTIONEN TN ACC. THE CARRY FLAG 


y 
SETRIT TAY s#SAVE LOGICAL. NUMBER 
CMF #8 *RRACKET O--7 VALUE 
HCC SEO 
SRC #8 §¢¢+SUBTRACT IF =? 
SRO TAX s3SET INDEX REG 
SEC *FREPARE BIT TO ROLL 
LOA #0 
SEBLOOF ROL A sMOVE KIT TO FPOSTTION 
EX 
BFi. SBLOOF 
INY *MAKE Y NUMERICAL? NOT LOGICAL 
CFY #9 sSET CARRY. FOR FORTE, C=1 
RTS 


a 


y 

*LIGHTR: SETS A RANDOM STEADY LED THAT HAS NOT .BEEN 
sFREVIOUSLY SET. IT GETS A RANIIGM NUMEERy THEN SETS 
yTHE BIT IN THE FROFER FORT. THE NUMERICAL VALUE OF 
?BIT SET IS IN THE ACCUMULATOR ON EXIT. 

’ 

LIGHTR JSR RANIIOM §GET RANDOM NUMBER 

JSR SETBIT 3GET BIT POSITIONED IN ACC. 


BCS LL.oO ?HRANCH IF FORT B DESTGNATED 
ORA FORTA sSET LET IN FORTA 
STA FORTA 
TYA PRESTORE NUMERICAL VALUE 
RTS 
L.t.O ORA F'ORTR *>SET LEI IN FORTE 
STA FORTE 
TYA *RESTORE NUMERICAL VALUE 
RTS 


2 


’ 
gBLINKRe SETS A RANDOM FLASHING LED THAT HAS NOT REEN 
sPREVIOUSLY SET. THE NUMERICAL VALUE OF THE LES IS IN 
¥THE ACCUMULATOR ON EXIT. IT GETS A RANDOM NUMBER» 
ITHEN DROPS INTO THE SETMASK ROUTINE TO FLASH THE 
sFROPER LET. 
9 
ISETMASKS ENTER WITH A LOGICAL VALUE» ANT ROUTINE 
9SETS THE FROFER FLASHING LEA. EXITS WITH NUMERECAL. 
*VALUE OF LED SET IN ACCUMULATOR 
, 
BLINKK JSK RANDOM ¥GET RANDOM NUMBER 
SETMASK JSR SETRIT 


BCS &LO BRANCH IF FORTE DESIGNATED 
ORA MASKA >SET MASKA 
STA MASKA 
TYA FRESTORE NUMERICAL VALUE 
RTS 

BLO ORA MASKE ySET MASKE 
STA MASKE 


Fig. 10.12: Blackjack Program (Continued) 
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O32 
03 


PJ ta 
EJ 
ee 20 


03233 
03263 
0328 3% 
O32A% 
032C;3 
OS2F 3 
O3313 
03332 
O33 8 
03.38; 
O33B 3 
OS SES 
03403 
03423 
OS44S 
0345: 
03463 


03473 
03483 
OS4A: 
O34C; 
OS4E 3 
05505 
03523 
03543 
03563 
03573 
03593 


035A: 
o35nt 
O35F! 
0360! 
03613 
03623 
0364! 
03663 
0367! 
0369! 


OSEA: 
OSEBS 
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98 
69 


20 
29 
Cc? 
BO 
20 
85 
BO 
AS 
on 
4C 
AS 
on 
25 
bo 
88 
98 
40 


38 
AS 
65 
65 
B5 
A2 
BS 
95 
cA 
10 
40 


20 
A? 
Ag 
AA 
CA 
A? 
ho 
88 
LO 
59 


49 
An 


47 
OF 
0A 
F7 
E4 
Cé 
08 
C2 
01 
40 
C3 
oO 
CS 
OF 


7 


03 


O53 


01 AO 


TYA 
RTS 


5 
7GENERATES A RANDOM NUMBER FROM O. TO 9 THAT IS NOT 
3THE NUMBER OF AN LED ALREADY SET. RESULT IS IN ACC ON 
yEXIT. 


, 
RANDOM JSR RANDER 3GET 0-255 NUMBER 


AND #$0F sMASK HIGH NIBELE 
CMF #10 sRRACKET 0-9 
BCS RANBOM 
JSR SETRIT ySET BIT IN POSITION 
STA TEMP *SAVE IT 
BCS RNO PHETERMINE FORT A OR B 
LUA MASKA yCOMBINE FORT ANE MASK 
ORA FORTA 
JMP RNI 
RNO LDA MASKE sCOMBINE FORT ANE MASK 
ORA FORTB 
RN1 ANT TEMF sLOOK AT SPECIFIC BIT 
BNE RANDOM 7IF BIT SET ALREADY» TRY AGAIN 
EY *MAKE Y LOGICAL. 
TYA rEXIT WITH VALUE IN ACCUMULATOR 
RTS 


? 
IGENERATES A RANDOM NUMBER FROM O-255. USES NUMBERS 
7AvReCeDvErF STORED AS RRND THROUGH RNAS. AUNS BtE+F+1 
yANI FUTS RESULT IN Ay THEN SHIFTS A TO He BH TO Co ETC. 
sRANDOM NUMBER IS IN ACCUMULATOR ON EXIT. 


$ 
RANIER SEC sCARRY ALS 1 
LOA RNIt+i1 ALG Belly F 
ARC RNTi-+4 
ANC RNU+S 
STA RNI 
LIX 24 sSHIFT NUMBERS DOWN 


ROULOOF LTA RNIte xX 
STA RND+1+xX 
TEX 
BFL. RILOOF 
RTS 


id 

PHELAY LOOPS RELAY? £S SIMFLY TWICE THE TIME DELAY 
30F DELAY. GIVEN LOOF JS AFFROX. .5 SEC. DELAY. 
9 
NELAY2 JSR DELAY 
DELAY LOA #$FF sSEF VALUE FOR LOOFS 

TAY 
lo TAX 
ni DEX 

LOA #$FF 

BANE [it 

DEY 

BNE [10 

RTS 


‘tr ‘> 


VINTERRUPT ROUTINE? EXCLUSIVE OR’S THE OUTPUT 
sFORTS WITH THE CORRESFONDING BLINKER MASKS EVERY 
yTIME THE TIMER TIMES OUT TO FLASH SELECTED LENS, 
9NOQ REGISTERS ARE CHANGED: ANI THE INTERRUFT 

9FLAG IS CLEARED HEFORE EXIT. 


, 
e 


=$0 3A 
FHA SAVE ACCUMULATOR 
LEA FORTA SCOMPLEMENT FORTS WETH MASKS 


Fig. 10.12: Blackjack Program (Continued) 
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OSEE! 45 C2 EQRK MASKA 

O3FO?} 80 01 AO STA FORTA 

O3F33 AD 00 AO LTA FORTE 

OSF63 45 C3 EOR MASKE 

O3F8: Bi OO AO STA FORTE 

OSFR? ALI! 04 AO LIA TILL PCLEAR TEMER TNTERRUPT BIT 
OSFE: 68 PLA FRESTORE ACCUMULATOR 

OSFFS 40 KTI 


SYMBOL TABLE? 


ACCESS BEBS4 INTVECL A67E INTVECH AGTF 
IER AQOE ACR AQOR TUL. AD04 
T1CH A005 DLA ANOS LOnRE ADO? 
FORTA ADO] FORTE AOO0O MASKA 0002 
MASKE 00C3 CHIFS O00CI RONE QOLo 
PHANI! 00C4 CHANE! 00CS TEMF OOCS 
RNID 0007 WHOWON oocn GETKEY 0100 
BL.JACK 0200 START 0234 ASK 024A 
HITFLR 0258 NEALER 0267 WINNER O27F 
LOSE 0287 WIN O292 SCORER OL PE. 
sc O2C1 SCO O20 ENTER D209 
ENO 0213 ENI O2TIK SE TET T OPE A 
SEO O2ER SBLOOF O2EF L FGHTR O2F 7 
LLO 0307 BILINKR O30F SETMASK O%12 
BLO 0310 RANTIOM 0323 RNO ORT 
RN1 03540 RANTIIER 0347 ROL OU OST. 
DELAY2 O35A DELAY 03ST ry O5460 
Di 0361 

y 


Fig. 10.12: Blackjack Program (Continued) 
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11. Artificial Intelligence 
(Tic-Tac-Toe) 


INTRODUCTION 


This chapter presents the complete design of acomplex algorithm that 
solves the strategy and implementation problems of the Tic-Tac-Toe 
game. This is a long program using sophisticated evaluation techniques, 
table look-up algorithms, as well as complex data structures such as 
chained lists. It deserves a close examination and will bring you to atrue 
competence level when programming the 6502. 


THE RULES 


Tic-Tac-Toe is played on a three-by-three sectioned square. An ‘‘Q”’ 
symbol will be used to represent a move by the player and an ‘‘X”’ will 
be used to display a move by the computer. Each player moves in turn, 
and on every turn each player strategically places his or her symbol in 
a chosen section of the board. The first player to line up three symbols 
in a row (either horizontally, vertically or diagonally) is the winner. 
An example of the eight possible winning combinations is shown in 
Figure 11.1. Using our LED display, a continuously lit LED will be 
used to display an ‘‘X,”’ i.e., a computer move. A blinking LED will 
be used to display an ‘‘O,’’ 1.e., the player’s move. 

Either the player or the computer may make the first move. If the 
player decides to move first, he or she must press key ‘‘F.’’ If the com- 
puter is to move first, any other key should be pressed and the com- 
puter will start the game. At the end of each game a new game will 
start automatically. The computer is equipped with a variable IQ (in- 
telligence) level ranging from one to fifteen. Every time the computer 
wins, its IQ level is reduced one unit. Every time the player wins, the 
computer’s IQ level is increased by one unit. This way, every player 
has a chance to win. A high tone is sounded every time the player wins 
and a low tone is sounded every time that the player loses. 


A TYPICAL GAME 


The display is initially blank. We will let the computer start. We do 
this by pressing any key but the key ‘‘F.’’ (If we press key ‘‘F,’’ then 
the player must go first.) Let us begin by pressing ‘‘0.’’ After a short 
pause the computer responds with a “‘chirp’’ and makes its move. (See 
Figure 11.2.) 
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O 





O O 


Fig. 11.1: Tic-Tac-Toe Winning Combinations For a Player 


X 


Fig. 11.2: First Computer Move 


An ‘‘X’’ is used to denote the computer’s moves. ‘‘O’’ will be used 
to denote our moves. Blank spaces are used to show unlit LEDs. Let 


219 


ADVANCED 6502 PROGRAMMING 


us move to the center and occupy position 5. (See Figure 11.3.) We 
press key ‘‘5.”’ A moment later, LED #1 lights up and a chirp is heard 
that indicates it is our turn to play. The board is shown in Figure 11.4. 


X 


Fig. 11.3: Our First Move 


X 


X 


Fig. 11.4: Second Computer Move 


It is now our turn and we should block the computer to prevent it 
from completing a winning column: let us occupy position 4. We press 
key “‘4.”” A moment later, LED #6 lights up and a chirp is heard. The 
situation is shown in Figure 11.5. 


X 
O X 
X 


Fig. 11.5: After the Computer's Third Move 
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We play in position 2. The computer reacts by playing in position 8. 
This is shown in Figure 11.6. We prevent the computer from com- 
pleting a winning row by playing in position 9. The computer responds 
by occupying position 3. This is shown in Figure 11.7. This is a draw 
situation. Nobody wins, all the LEDs on the board blink for a mo- 
ment, and then the board goes blank. We can start another game. 


Fig. 11.6: After the Computer's Fourth Move 


X|O!}X 

O| 0] x 

X|X|O 
(DRAW) 


Fig. 11.7: After the Computer's Fifth Move 


Another Game 


This time we are going to start and, hopefully, win! We press ‘‘F’’ 
to start the game. A chirp is heard, confirming that it is our turn to 
play. We play in position 5. The computer responds by occupying 
square 3. The chirp is heard, announcing that we can play again. The 
situation is shown in Figure 11.8. We play in position 4. The computer 
responds by occupying square 6. This is shown in Figure 11.9. This 
time we must block the computer from completing the column on the 
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Fig. 11.8: Move 1 


Fig. 11.9: Move 2 


X X 
O X 
O 


Fig. 11.10: Move 3 


right and we move into position 9. The computer responds by moving 
to square 1, thus preventing us from completing a diagonal. This 
situation is shown in Figure 11.10. We must prevent the computer 
from completing a winning row on top; therefore we occupy position 
2. The computer responds by occupying position 8. This is shown in 
Figure 11.11. We make our final move to square 7 to finish the game. 
This is a draw: we did not beat the computer. 
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X|O| X 
O X 
X|O 


Fig. 11.11: Move 4 


Since the computer was ‘‘smart enough’’ to move into a diagonal 
position after we occupied the center position, we did not win. Note: if 
we keep trying, at some point the computer will play one of the side 
positions (2, 4, 6, or 8) rather than one of the corners and we will then 
have our chance to win. Here is an example. 

We move to the center. The computer replies by moving into posi- 
tion 6. The situation is shown in Figure 11.12. We move to square 1; 
the computer moves to square 9. This is shown in Figure 11.13. We 


Fig. 11.12: Move 1 


O 
X 
X 


Fig. 11.13: Move 2 
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move to square 3; the computer moves to square 7. This is shown in 
Figure 11.14. This time we make the winning move by playing into 
square 2. The situation is shown in Figure 11.15. Note that if we start 
playing and if we play well, the result will be either a draw or a win. 
With Tic-Tac-Toe, the player who starts the game cannot lose if he or 
she makes no mistakes. 


“MOVE 3” 


Fig. 11.14: Move 3 


O|O;O 
X 
X X 


Fig. 11.15: "We Win!" 


THE ALGORITHM 


The algorithm for the Tic-Tac-Toe program is the most complex of 
those we have had to devise so far. It belongs to the domain of so- 
called ‘‘artificial intelligence.’’ This is a term used to denote the fact 
that the functions performed by the program duplicate the mental ac- 
tivity commonly called ‘‘intelligence.’’ Designing a good algorithm 
for this game in a small amount of memory space is not a trivial prob- 
lem. Historically, many algorithms have been proposed, and more can 
be found. Here, we will examine two strategies in detail, and then 
select and implement one of them. Additional exercises will suggest 
other possible strategies. 
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Strategy to Decide the Next Move 


A number of strategies may be used to determine the next move to 
be made by the computer. The most straightforward approach would 
be to store all possible patterns and, the best response in each case. 
This is the best method to use from a mathematical point of view as it 
guarantees that the best possible move will be made every time. It is 
also a practical approach because the number of combinations on a 3 
x 3 board is limited. However, since we have already learned to do 
table lookups for other games, such an approach would not teach us 
as much about programming. It might also not be considered ‘‘fair.’’ 
We will, therefore, investigate other methods applicable to a wider 
number of games, or to a larger board. 

Many strategies can be proposed. For example, it is possible to con- 
sider a heuristic strategy in which the computer learns by doing. In 
other words, the computer becomes a better player as it plays more 
games and learns from the mistakes it makes. With this strategy the 
moves made by the computer are random at the beginning of the 
game. However, provided that a sufficient amount of memory is 
available, the computer remembers every move that it has made. If it 
is led into a losing situation, the moves leading to it are thrown out by 
the computer as misjudged moves, and they will not be used again in 
that sequence. With time and a reasonable ‘‘learning’’ algorithm this 
approach will result in the construction of decision tables. However, 
this approach assumes that a very large amount of memory is 
available. This is not the case here. We want to design a program 
which will fit into 1K of memory. Let us look at another approach. 

Another basic approach consists of evaluating the board after each 
move. The board should be examined from two standpoints: first, if 
there are two ‘‘O’’s ina row, it is important to block them unless a win 
can be achieved with the current move. Also, the win potential of 
every board configuration should be examined each time: for exam- 
ple, if two ‘‘X’’s are in a row, then the program must make a move in 
order to complete the row for a win. Naturally these two situations are 
easy to detect. The real problem lies in evaluating the potential of 
every square on the board in every situation. 


An Analytical Algorithm 


At this point, we will show the process used to design an algorithm 
along very general guidelines. After that, as we discover the weakness- 
es of the algorithm, we will improve upon it. This will serve as an ex- 
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ample of a possible approach to problem-solving in a game of 
strategy. 


General Concept 


The basic concept is to evaluate the potential of every square on the 
board from two standpoints: ‘‘win’’ and ‘‘threat.’’ The win potential 
corresponds to the expectation of winning by playing into a particular 
square. The threat potential is the win potential for the opponent, 

We must first devise a way to assign a numerical value to the com- 
binations of ‘‘O’’s and ‘‘X’’s on the board. This must be done so that 
we can compute the strategic value, or “‘potential,’’ of a given square. 


Value Computation 


For each row (or column or diagonal), four possible configurations 
may occur — that is, if we exclude the case in which all three positions 
are already taken and we cannot play in a row. These configurations 
are shown in Figure 11.16. Situation ‘‘A’’ corresponds to the case in 
which all three squares are empty. Clearly, the situation has some 
possibilities and we will start by assigning the value ‘‘one’’ to each 
Square in that case. The next case is shown in row ‘‘B’’ of Figure 
11.16; it corresponds to the situation in which there is already an ‘‘X’’ 
in that row. If we were to place a second ‘‘X’’ in that row, we would 
be very close to a win. This is a desirable situation that has greater 
value than the preceding one. Let us add ‘‘one’’ to the value of each 
free square because of the presence of the ‘‘X’’; the value of each 
square in that instance will be ‘‘two.”’ 

Let us now consider case ‘‘C’’ in Figure 11.16, in which we have one 
**X’’ and one ‘‘O.’’ The configuration has no value since we will never 
be able to win in that particular row. The presence of an ‘‘O’’ brings 
the value of the remaining square down to ‘‘zero.’’ 

Finally, let us examine the situation of row ‘‘D’’ in Figure 11.16, 
where there are already two ‘‘X’’s. Clearly, this is a winning situation 
and it should have the highest value. Let us give it the value ‘‘three.”’ 

The next concept is that each square on the board belongs to a row, 
a column, and possibly a diagnoal. Each square should, therefore, be 
evaluated in two or three directions. We will do this and then we will 
total the potentials in every direction. For convenience, we will use an 
evaluation grid as shown in Figure 11.17. Every square in this grid has 
been divided into four smaller ones. These internal squares are used to 
display the potential of each square in each direction. The square 


226 


ARTIFICIAL INTELLIGENCE 





VALUE 2 


Cc | |x}o VALUE 0 
> | (X{xX VALUES 
E | 10) VALUE 0 
| [olo VALUEO 


Fig. 11.16: The Six Combinations 





Fig. 11.17: Evaluation Grid 
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labeled ‘‘H’’ in Figure 11.17 will be used to evaluate the horizontal 
row potential. ‘‘V’’ will be used for the vertical column potential. 
‘*T)’’ will be used for the diagonal potential. ‘‘T’’ will be used for the 
total of the previous three squares. Note that there is no diagonal 
value shown for four of the squares on the board. This is because they 
are not placed on diagonals. Also note that the center square has two 
diagonal values since it is at the intersection of two diagonals. 

Once our algorithm has computed the total threat and win poten- 
tials for each square, it must then decide on the best square in which to 
move. The obvious solution is to move to the square having the 
highest win or threat potential. 

Now we shall test the value of our algorithm on some real examples. 
We will look at some typical board configurations and evaluate them 
by using our algorithms to check if the moves it generates make sense. 


A Test of the Initial Algorithm 


Let us look at the situation in Figure 11.18. It is the player’s turn 
(‘‘QO’’) to play. We will evaluate the board from two standpoints: 
potential for ‘*X’’ and threat from ‘‘O.’’ We will then select the 
square that has the highest total in each of the two grids generated and 
make our move there. 


O 


O 


Fig. 11.18: Test Case 1 


Let us first complete the evaluation grid for the first row. Since 
there is an ‘‘O”’ in the first row, the horizontal potential for the player 
is zero (refer to row C, Figure 11.16 and look up the value of this con- 
figuration). This is indicated in Figure 11.19. Let us now look at row 
2: it contains two blank squares and an ‘‘X.’’ Referring to line B of 
Figure 11.16, the corresponding value is ‘‘two.”’ It is entered at the ap- 
propriate location in the grid, as shown in Figure 11.20. Finally, the 
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Fig. 11.20: Evaluating the Horizontal Potential 


third row is examined, and since there is an ‘‘O”’ in it, the row poten- 
tial is ‘‘zero,’’ as indicated in Figure 11.20. The process is then repeat- 
ed for the three columns. The result is indicated in Figure 11.21. 

The value of each square of column | is ‘‘zero,’’ since there is an 
*‘O”’ at the bottom. Similarly, for column 2 the value is also ‘‘zero,”’ 
and for column 3 it is ‘‘one’’ for each square, since all three squares 
are open (blank). (Refer to line A in Figure 11.16.) 

The process is repeated for each of the two diagonals and the results 
are shown in Figure 11.22. Finally, the total is computed for each 
square. The results are shown in Figure 11.23. Remember that the 
total appears in the bottom right-hand corner of each square. 

It can be seen that at this point, two squares (indicated by an arrow 
in Figure 11.23) have the highest total, ‘‘three.’’ This indicates where 
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HIGHEST 
SCORE 





Fig. 11.23: The Final Potential 
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we should play. But wait! We have not yet examined the threat, 1.e., 
the potential from our opponent “‘O.’’ 

We will now evaluate the threat posed by ‘‘O”’’ by again computing 
the potential of each square on the board, but this time from ‘‘O’s’’ 
standpoint. The position values for the six meaningful combinations 
are indicated in Figure 11.24. When we apply this strategy to our 
evaluation grid, we obtain the results shown in Figure 11.25. The 
square with the highest score is the one indicated by the arrow. It 
scores ‘‘four,’’ which is higher than the two previous squares that 
were determined when we evaluated the potential for ‘‘X.”’ 

Using our algorithm, we decide that the move we should make is to 
play into square 1, as indicated in Figure 11.26. 

Let us verify whether this was indeed the appropriate move, assum- 
ing that each player makes the best possible move. A continuation of 
the game is shown in Figure 11.27. It results in a draw. 


{JoTx] 
- 


VALUE 0 


VALUE 2 


Fig. 11.24: Evaluation for "OO" 
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HIGHEST 
SCORE 





Fig. 11.26: Move for Highest Score 


X|O X|O X|O 
x[_| |_[xfe 

O O O;1X}O O1xX|O 
O 


xX 4 
O (DRAW) 
O 


Fig. 11.27: Finishing the Game 
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Let us now examine what would have happened if we had not 
evaluated the threat and played only according to the highest potential 
for ‘‘X’’ as shown in Figure 11.23. This alternative ending for the 
game is shown in Figure 11.28. This game also results in a draw. In 
this instance, then, the square with the value ‘‘four’’ did not truly 
have a higher strategic value than the one with the value ‘‘three.”’ 
However, our algorithm worked. 

Let us now test our algorithm under more difficult circumstances. 





OQ} X| X O|;X |X (DRAW) 
O O O|;X}O 


Fig. 11.28: An Alternative Ending for the Game 


Improving the Algorithm 


In order to test our algorithm, we should consider clear-cut situa- 
tions in which there is one move that is best. To begin, we will assume 
that it is the player’s turn. The first test situation, evaluated for ‘‘X,”’ 
is illustrated in Figure 11.29, and the potential for ‘‘O”’ is shown in 
Figure 11.30. This time we have a problem. The highest overall poten- 
tial is ‘‘four’’ for ‘‘X’’ in the lower right corner square. If the com- 
puter moved there, however, the player would win! At this point our 
algorithm should be refined. 

We should note that whenever there are already two ‘‘X’’s in a row 
the configuration should result in a very high potential for the third 
square. We should therefore assign it a value of ‘‘five’’ rather than 
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Fig. 11.31: Test #2 
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‘‘three’’ to ensure that we move there automatically. We have thereby 
identified and made our first improvement to the algorithm. 

The second test situation is shown in Figure 11.31. Our algorithm 
assigns the value ‘‘six’’ to the lower right corner square (as indicated 
by an arrow in Figure 11.31). This is clearly the correct move. It 
works! Now, let us test the improvement we have made. 


The First Move 


When the board is empty, our algorithm must decide which square 
should be occupied first. Let us examine what this algorithm does. 
(The results are shown in Figure 11.32.) The algorithm always chooses 
to move to the center. This is reasonable. It could be shown, however, 
that it is not indispensable in the game of Tic-Tac-Toe. In fact, having 
the computer always move to the center makes it appear ‘‘boring,’’ or 
simply ‘‘lacking imagination.’’ Something will need to be done about 
this. This will be shown in the final implementation. 





Fig. 11.32: Moving to the Center 


Another Test 


Let us try one more simple situation. This situation is shown in 
Figure 11.33. Again, the recommended move is a reasonable one. The 
reverse situation is shown in Figure 11.34 and does, indeed, lead to a 
certain win. So far, our algorithm seems to work. Let us try a new 
trap. 


A Trap 


The situation is shown in Figure 11.35. It is now ‘‘X’s’’ turn to play. 
Using our algorithm, we will move into one of the two squares having 
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Fig. 11.34: A Reverse Situation 


the total of ‘‘four.’’ This time, however, such a move would be an er- 
ror! Assuming such a move, the end of the game is shown in Figure 
11.36. It can be seen that ‘‘O’’ wins. The move by ‘‘X’’ was an incor- 
rect choice if there was a way to get at least a draw. The correct move 
that would lead to a draw is shown in Figure 11.37. This time, our 
algorithm has failed. Following is a simple analysis of the cause: it 
moved to a square position of value ‘‘four’’ corresponding to a high 
level of threat by ‘‘O,’’ but left another square with an equal threat 
value unprotected (see Figure 11.35). Basically, this means that if ‘‘O”’ 
is left free to move in a square whose threat potential is equal to 
‘*four,’’ it will probably win. In other words, whenever the threat 
posed by ‘‘O”’’ reaches a certain threshold, the algorithm should con- 
sider alternative strategies. In this instance, the strategy should be to 
place an ‘‘X’’ in a square that is horizontally or vertically adjacent to 
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NEXT 
MOVE 





Fig. 11.35: Trap 3 





Fig. 11.36: End of Game 


the first one in order to create an imminent ‘‘lose threat’’ for ‘‘O,’’ 
and thereby force ‘‘O’’ to play into the desired square. In short, this 
means that the algorithm should analyze the situation further or better 
still, analyze the situation one level deeper, i.e., one turn ahead. This 
is called two-ply analysis. 
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Fig. 11.37: A Correct Move 


In conclusion, our algorithm is simple and generally satisfactory. 
However, in at least one instance, Trap 3 in Figure 11.35, it fails. We 
must therefore, include either a special consideration for this case, or 
we must analyze the situation one turn ahead every time and look at 
what would happen if we were to place an ‘‘X’’ or an ‘‘O”’ in every 
one of the available squares. The latter is actually the ‘‘cleanest’’ solu- 
tion. Ideally, we should analyze all of the possible sequences until an 
end-of-game situation is obtained. The programming complexity, the 
storage required, and the time that would be needed to analyze the 
situations would, however, make this approach impractical. In a more 
complex game, such as chess or checkers, it would be necessary to use 
such a multi-ply analysis. For example, using only a two-ply analysis 
technique to design a simple chess game would not make it very in- 
teresting or very good. It would be necessary to use three-ply, four-ply 
or even more detailed analysis in order to make the game challenging. 

If it is not possible to push the evaluation to a sufficient depth, the 
algorithm must be equipped with specific procedures that can detect 
special cases. This is the case with ad hoc programming, which can 
be considered ‘‘unclean’’ but actually results in a much shorter pro- 
gram and/or a lesser memory requirement. In other words, if the 
special situations in a game can be recognized in advance, then it is 
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possible to write a special-purpose program which will take these 
situations into account, The resulting program will usually be shorter 
than the completely general one. This type of program, however, 
can only be constructed if the programmer has an excellent initial 


understanding of the game. 
In the game of Tic-Tac-Toe, the number of combinations is limited. 


This makes it possible to examine all possible combinations that can 
be played on the board and to devise a procedure that takes all of these 
cases into account. Since we are primarily limited here by the amount 
of available memory, we will construct an ad hoc algorithm that fits 
within 1K of memory. Alternative techniques will be proposed as 
exercises. 


The Ad Hoc Algorithm 


This algorithm assigns a value to each square on the board depend- 
ing on who has played there. Initially a value of ‘‘zero’’ is assigned to 
each square on the board. Every time the player occupies a square, 
however, the corresponding value of the square becomes ‘‘one.’’ 
Every time the computer occupies a square, the value of that square 
becomes ‘‘four.’’ This is illustrated in Figure 11.38. The value of 
‘*four’’ has been chosen so that it is possible to know the combination 
of moves in that row just by looking at the total of every row. For ex- 
ample, if a row consists of a move by the player and two empty 
squares, its ‘‘row-sum”’ is ‘‘one.’’ If the player has played twice, its 
row-sum is ‘‘two.’’ If the player has played three times, the row-sum is 
‘*three.”’ Since ‘‘three’’ is the highest total that can be achieved in 
rows where only the player has played, the value of ‘‘four’’ has been 
assigned to a computer move. For example, if the value of a row is 
‘*five,’’ we know that there is one computer move (‘‘X’’), one player 
move (‘‘O’’), and one empty square. The six possible patterns are 
shown in Figure 11.38. It can readily be seen that the row-sum values 
of ‘‘two’’ or ‘‘eight’’ are winning situations. A row-sum value of 
‘*five’’ is a blocked position, i.e., one that has no value for the player. 
If a win situation is not possible, then the best potentials are represent- 
ed by either a value of ‘‘one’’ or a value of ‘‘four’’ depending on 
whose turn it is to play. 

The algorithm is based on such observations. It will first look for a 
win by checking to see if there is a row-sum of value ‘“‘eight.’’ If this is 
the case, it will play there. If not, the algorithm will check for a so- 
called ‘‘trap’’ situation in which two intersecting rows each have a 
computer move in them and nothing else (the algorithm is always used 
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Fig. 11.38: Row-sums 


for the computer’s benefit). This is illustrated in Figure 11.39. By ex- 
amining Figure 11.39, it becomes clear that each unoccupied square 
that belongs to two rows having a row-sum of ‘‘four’’ is a trap posi- 
tion where the algorithm should play. This is exactly what it does. 

The complete flowchart for the board analysis is shown in Figure 
11.40. Now, let us examine it in more detail. Remember that it is 
always the computer’s turn when this algorithm is invoked. 

First, it checks for a possible immediate win. In practice, we will ex- 
amine all row-sums and look for one which has a total of ‘‘eight.’’ 
This would correspond to a case where there are two computer moves 
in the same row with the last square being empty. (Refer to Figure 
11.38.) 

Next, we will check for a possible player win. If the player can win 
with the next move, the algorithm must block this move. To do so, it 
should scan the row-sums and look for one that has a total of ‘‘two,’’ 
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PLAY 
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Fig. 11.39: A Trap Pattern 


which would indicate a winning combination for the player. (Refer to 
Figure 11.38.) 

At this point the algorithm should check to see if the computer can 
play into any of the trap positions defined above. (See Figure 11.39 for 
an example.) 

One more feature has been built into the algorithm: the computer is 
equipped with a variable IQ level, i.e., with a variable level of in- 
telligence. The above moves are ones that any ‘‘reasonable computer’’ 
‘must make. From this point on, however, the algorithm can let 
the computer make a few random moves and even possible mistakes if 
its intelligence level is set to a low level. In order to provide some 
variety to the game, we will obtain a random number, compare it to 
the IQ, and vary our play depending upon the results. If the IQ is set 
to the maximum, the program will always execute the right branch of 
the flowchart; however, if the IQ is not set to the maximum, it will 
sometimes execute the left branch. Let us follow the right branch of 
the flowchart. At this point, we will check for two special situations 
that correspond to moves #1 and #4 in the game. 

For the first situation, i.e., the first move in a game, the algorithm 
will occupy any position on the board. That way, its behavior will be 
different every time and, thus, appear ‘“‘intelligent.”’ 


241 


ADVANCED 6502 PROGRAMMING 


CAN COMPUTER 
WIN? 
NO 
CAN 
PLAYER WIN? 
NO 












RETURN W/ 
WINNING MOVE 
IN X 












RETURN W/ 
BLOCKING MOVE 
INX 













RETURN 
W/ MOVE 
IN X 





GET RANOOM 
NUMBER 


RANDOM 
NUMBER > 
1.Q.? 












{NEXT PAGE) 





GET RANDOM 
MOVE, CHECKING 
FOR SPACE 
OCCUPIED 





Fig. 11.40: Board Analysis Flowchart 


For the next situation we must look at move #4. It is the computer’s 
turn. In other words, the player started the game (move #1), the com- 
puter responded (move #2), then the player made his or her second 
move (move #3), and it is now the computer’s turn. In short, in the 
game thus far, the player has played twice and the computer has 
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Fig. 11.40: Board Analysis Flowchart (Continued) 


played once. At this point, we want to check to see if the first three 
moves have all been made along one of the diagonals. If so, since the 
player has made two moves and the computer has made one, the row- 
sum of one of the diagonals will be ‘‘six.’’ The algorithm must check 
explicitly for this. If the first 3 moves have all been made along a 


243 


ADVANCED 6502 PROGRAMMING 


diagonal, the computer must move to a side position. This is a special 
situation which must be built into the algorithm, or it cannot be 
guaranteed that the computer (assuming the highest IQ level) will win 
every time. This situation is illustrated in Figure 11.41. Note that if 
straightforward logic was used, the algorithm would play into one of 
the free corners since a threat exists from the player that he or she 
might play there, and thereby set up a trap situation. The results of 
such an action are shown in Figure 11.42. By looking at this illustra- 





COMPUTER PLAYER 


Fig. 11.42: Falling Into the Diagonal Trap 
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tion, it can be seen that such a move would result in a loss. However, 
let us examine what happens if we play on one of the sides. This situa- 
tion is illustrated in Figure 11.43; it results in a draw. This is clearly the 
move that should be made. This is a relatively little-known trap in the 
game of Tic-Tac-Toe, and a provision must be built into the algorithm 
so that the computer will win. 


O O O Xx 
x} xX x|Ixlo! |x!lxlo 
O O O 


O x! |O x! |OIO!|X 

x O| |XIxXIO! |xIx]/o 

O O| |OIX!IO! |O|xIo 
PLAYER COMPUTER eA 


Fig. 11.43: Playing to the Side 


If it was not the fourth move, or if there was not a diagonal trap set, 
the next thing the computer should do is to check to see if the player 
can set a trap. (Refer to the flowchart in Figure 11.40.) If the player 
can set a trap, the computer plays in the appropriate square to block 
it. Otherwise, the computer moves to the center square, if available; if 
that is not possible, it moves randomly to any position. 

Since this algorithm was built in an ad hoc fashion, it is difficult to 
prove that it wins or achieves a draw in all cases. It is suggested that you 
try it on a board or that you try out the actual program on the Games 
Board. You will discover that in all conditions under which it has been 
tested, the computer always wins or achieves a draw. If the computer 
keeps winning, however, its IQ level will drop, and eventually it will 
allow the player to win. As an example, some sequences obtained on 
the actual board are shown in Figure 11.44. 
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Fig. 11.44: Actual Game Sequences 
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Suggested Modifications 


Exercise 11-1: Designate a special key on the Games Board that, when 
pressed will display the computer’s IQ level. 


Exercise 11-2: Modify the program so that the IQ level of the com- 
puter can be changed at the beginning of each game. 


Credits 


The ad hoc algorithm which was described in this section is believed 
to be original. Eric Novikoff was the main contributor. ‘‘Scientific 
American”’ (selected issues from 1950 through 1978), as well as Dr. 
Harvard Holmes must also be credited with having provided several 
original ideas. 


Alternative Strategies 


Other strategies can also be considered. In particular, a short pro- 
gram can be designed by using tables of moves that correspond to 
various board patterns. The tables can be short because when sym- 
metries and rotations are taken into account, the number of situations 
that can be represented is limited. This type of approach results in a 
shorter program, however, the program is somewhat less interesting to 
design. 


Exercise 11-3: Design a Tic-Tac-Toe program using this type of table. 


THE PROGRAM 


The overall organization of the program is quite simple. It is shown 
in Figure 11.42. The most complex part is the algorithm that is used to 
determine the next move by the computer. This algorithm, called 
‘‘FINDMOVE,”’ was previously described. 

Let us now examine the overall program organization. The cor- 
responding flowchart is shown in Figure 11.45. 


1. The computer IQ level is set to 75 percent. 

2. The user’s keystroke is read. 

3. The key is checked for the value ‘‘F.’’ If it is an “‘F,”’ the player 
starts; otherwise the computer starts. Depending on the value 
of the key pressed, the flowchart continues into boxes 4 or 5, 
then to 6. 
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Fig. 11.45: Tic-Tac-Toe Flowchart 
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Fig. 11.45: Tic-Tac-Toe Flowchart (Continued) 


If the player starts (PLAYER is not equal to ‘‘0’’), then we move to 
the left side of the flowchart. 
7. The key, pressed by the player specifying his or her move, is 
read and the move is displayed on the board. 
8. The corresponding LED is lit on the board. It then becomes the 
computer’s turn to play and the variable PLAYER is set to 
‘*Q’’ in box 9. 
When exiting from box 6, if it is the computer’s turn, we move to 
box 10. 
11. The next move to be made by the computer must be computed 
at this time. 
This is the complex algorithm we have described above. 
11. Next, the computer’s move is displayed. 
12. PLAYER is reset to ‘‘one’’ to reflect the fact that it is now the 
player’s turn. 
After either party has moved, the board is checked for a winning se- 
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quence of lights in box 13. If there is not a winning sequence of lights, 
we move to the left on the flowchart. 

14. We next check to see if all moves have been exhausted: we 
check for move #9. If the ninth LED is lit and a winning situa- 
tion has not been detected, it is a draw, and all lights on the 
board must be flashed. 

15. We flash all the LEDs on the board. Then, we return to box 6 
and the next player plays. 

When exiting from box 13, if there is a win situation, this fact must 

be displayed: 

16. All of the lights are blanked except for the winning three LEDs. 
Next, it must be determined by the algorithm whether the 
player or the computer has won. 

17. A determination is made as to whether it was the player or the 
computer who won. If the computer has won, we branch to the 
right on the flowchart. 

18. A low frequency tone is sounded. 

19. The computer’s IQ is decremented (to a minimum of 0). 

The situation for a player win, shown in boxes 20 and 21, is analo- 

gous. 

The general program flow is straightforward. Now, we shall examine 
the compiete information. The subroutine which analyzes the board 
situation is called ‘“ANALYZE”’ and uses ‘SUPDATE”’ as a subroutine 
to compute the values of various board positions. 


Data Structures 


The main data structure used by this program is a linear table with 
three entry points that are used to store the eight possible square 
alignments on the board. When evaluating the board, the program 
will have to scan each possible alignment for three squares every time. 
In order to facilitate this process, all possible alignments have been 
listed explicitly, and the memory organization is shown in Figure 
11.46. 

The table is organized in three sections starting at RWPTI1, 
RWPT2, and RWPT3 (RWPT stands for ‘‘row pointer’’). For exam- 
ple, the first elements RWPT1, RWPT2, and RWPT3, for the first 
three-square sequence are looked at by the evaluation routine. The se- 
quence is: ‘‘0, 3, 6,’’ as indicated by the arrows in Figure 11.43. The 
next three-square sequence is obtained by looking at the second entry 
in each RWPT table. It is ‘‘1, 4, 7,’’ which is, in fact, the second col- 
umn on our LED matrix. 
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RWPT!} ——* I] 00 


FIRST 03 
SQUARE 





ND 





RWPT2 ——*f 08 


SECOND OB 
SQUARE 


A 
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RWPT3 ——~#/ 10 


THIRD 13 
SQUARE 





Fig. 11.46: Tic-Tac-Toe Row Sequences in Memory 
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The table has been organized in three sections in order to facilitate 
access. To be able to access all of the elements successfully, it will be 
necessary to keep a running pointer that can be used as an index for ef- 
ficient table access. For example, if we number our generalized rows 
of sequences from 0 to 7, ‘‘row’’ 3 will be accessed by retrieving 
elements at addresses RWPT1 + 3, RWPT2 + 3, RWPT3 + 3. (Itis 
the sequence ‘‘0, 1, 2,’’ as seen in Figure 11.46.) 


Memory Organization 


Page 0 contains the RWPT table which has just been described, as 
well as several other tables and variables. The rest of the low memory 
is shown in Figure 11.47. 

The GMBRD table occupies nine locations and stores the status of 
the board at all times. A value of ‘‘one’’ is used to indicate a position 
occupied by the player, and a value of ‘‘four’’ indicates a position oc- 
cupied by the computer. 

The SQSTAT table also occupies nine words of memory and is used 
to compute the tactical status of the board. 

The ROWSUM table occupies eight words and is used to compute 
the value of each of the eight generalized rows on the square. 

The RNDSCR table occupies six words and is used by the random 
number generator. 

The remaining locations are used by temporary variables, masks, and 
constants, as indicated in Figure 11.47. The role of each variable or con- 
stant will be explained as we describe each routine in the program. 


High Memory 


High memory locations are essentially reserved for input/output 
devices. Ports 1 and 3 are used, as well as interrupts. The correspond- 
ing memory map is shown in Figure 11.48. The interrupt-vector 
resides at addresses A67E and A67F. It will be modified at the begin- 
ning of the program so that interrupts will be generated automatically 
by the interval timer. These interrupts will be used to blink the LEDs 
on the board. 


Detailed Program Description 


At the beginning of each game, the intelligence level of the com- 
puter is set at 75 percent. Each time that the player wins, the IQ level 
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Fig. 11.47: Tic-Tac-Toe: Low Memory 
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Fig. 31.48: Tic-Tac-Toe: High Memory 
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will be raised by one point. Each time that the player loses, it will be 
decremented by one point. It is initially set at the value 12 decimal: 


START LDA #12 
STA INTEL Set IQ at 75% 


Initialization occurs next: 
RESTRT JSR INIT 


Let us examine the INIT subroutine which has just been called. It 
resides at address 0050 and appears on lines 0345 and following on the 
program listing. The first action of the initialization subroutine is to 
clear all low memory locations used by program variables. The loca- 
tions to be cleared are those between CLRST and CLREND (see lines 
41 and 57 of the program listing). Note that a seldom-used facility of 
the assembler — multiple labels for the same line — has been utilized 
to facilitate the clearing of the correct number of memory locations. 
Since it may be necessary to introduce more temporary variables in the 
course of program development, a specific label was assigned to the 
first location to be cleared, CLRST (memory location 18), and 
another to the last location to be cleared (CLREND). For example, 
memory location 18 corresponds both to CLRST and to GMBRD. 
The clearing operation should start at address CLRST and proceed 
forward fourty locations (CLREND-CLRST). Thus, we first load the 
number of locations to be cleared into index register X, then we use 
a loop to clear all of the required locations: 


INIT LDA #0 
LDX #CLREND-CLRST 
CLRALL STA CLRST,X Clear location 
DEX 
BPL CLRALL 


After low memory has been cleared, the two starting locations for the 
random number generator must be seeded. As usual, the low-counter 
of timer | is used: 


LDA TILL 
STA RNDSCR + 1 
STA RNDSCR + 4 
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Ports 1A, 1B, and 3B are then configured as outputs. The appropriate 
pattern is loaded into the data direction registers: 


LDA #$FF 

STA DDRIA 
STA DDRIB 
STA DDR3B 


All LEDs on the board are turned off: 


LDA #0 
STA PORTIA 
STA PORTIB 


Next, the interrupt vector’s address must be loaded with a new 
pointer. The address to be deposited there is the address of the inter- 
rupt handler, which has been designed to provide the regular blinking 
of the LEDs. (This process has already been explained in previous 
chapters.) The interrupt handler resides at address INTVEC. The high 
byte and the low byte of this address will be loaded in memory loca- 
tions IRQVH and IRQVL, respectively. A special assembler symbol is 
used to denote the low byte of the interrupt vector: #C INTVEC. Con- 
versely, the high byte is represented in assembly language by #> 
INTVEC. The new interrupt vector is loaded at the specified memory 
locations: 


JSR ACCESS 

LDA #<INTVEC 

STA IRQVL Low vector 
LDA # >INTVEC 

STA IRQVH High vector 


As usual, the interrupt-enable register must first be cleared, then the 
appropriate interrupt must be enabled: 


LDA #$7F 

STA IER Clear register 
LDA #$CO 

STA IER Enable interrupt 


Timer | is set to the free-running mode: 
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LDA #$40 
STA ACR 


The latch for timer 1 is loaded with the highest possible count, 
‘‘FFFF’’: 


LDA #$FF 
STA TILL 
STA TICH 


Finally, interrupts are enabled, the decimal mode is cleared as a 
precaution, and we terminate the initialization stage: 


CLI 
CLD 
RTS 


Back to the Main Program 


We are now at line 69 of the program listing. We read the next key 
closure on the keyboard: 


JSR GETKEY 


It is the first move. We must determine whether it is an ‘‘F’’ or not. If 
it is an ‘“‘F,’’ the player moves first; otherwise the computer moves 
first. Let us check it: 


CMP #$F 
BNE PLAYLP 


It is the player’s turn and this information is stored in the temporary 
variable PLAYR, shown in Figure 11.44: 


LDA #01 
STA PLAYR 


It is time for a new move, and the move counter is incremented by 
one. Variable MOVNUM is stored in low memory. This is shown in 
Figure 11.44. It is now incremented: 


PLAYLP INC MOVNUM 
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At this point, PLAYR indicates whose turn it is to play. If it is set at 
‘‘zero,’’ it is the computer’s turn. If it is set at ‘‘one,’’ it is the player’s 
turn. Let us check it: 


LDA PLAYR 
BEQ CMPMU 


We will assume here that it is the player’s turn. PLAYR Is reset to 
‘“zero’’ so that the computer will make its move next: 


DEC PLAYR 


The player’s move is received by the PLRMV subroutine which will be 
described below. Let us allow the player to play: 


JSR PLRMV 


The move made by the player is specified at this point by the contents 
of the X register. Since it was the player’s move, the corresponding 
code on the board’s representation should be ‘‘01,’’ which will be 
deposited in the accumulator: 


LDA #01 


We will now display the move on the board by blinking the proper 
LED. In addition, the corresponding ROWSUM will automatically be 
updated: 


JSR UPDATE 


The UPDATE routine will be described in detail below. Once the 
move has been made, we should check for a possible win. In the case 
of a win, the player has three blinking LEDs in a row, and the cor- 
responding row total is automatically equal to ‘‘three.’’ We will 
therefore simply check all eight rows for a ROWSUM of three: 


LDA #03 
BNE WINTST 


At address WINTST a test is performed for a winning configura- 
tion. Index register Y is loaded with ‘‘seven’’ and used as a loop 
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counter. All of the rows, 7 through 0, are checked for the value 
‘‘three’’: 


WINTST LDY #7 
TSTLP CMP ROWSUM,4 
BEQ WIN 
DEY 
BPL TSTLP 


Let us now continue with the player’s move. We will examine the 
computer’s move later. (The computer’s move corresponds to lines 
83-88 of the program listing, which have not been described yet.) A 
maximum of nine moves is possible in this game. Let us verify whether 
or not we have reached the end of the game by checking the value of 
MOVNUM, which contains the number of the current move: 


LDA MOVNUM 
CMP #9 
BNE PLAYLP 


This is the end of our main loop. At this point, a branch occurs back 
to location PLAYLP, and execution of the main program resumes. 

If we had reached the end of the game at this point, the game would 
be a tie, since there has not been a winner yet. At this point all of the 
lights on the board would be set blinking and then the game would 
restart. Let us set the lights blinking: 


LDA #$FF 
STA LTMSKL 
STA LTMSKH 
BNE DLY 


The delay is introduced to guarantee that the lights will be blinked for 
a short interval. Let us now examine the end-of-game sequence. 

When a win situation is found, it is either the player’s win or the 
computer’s win. When the player wins, the row total is equal to 
‘“‘three.’?’ When the computer wins, the row total is equal to ‘‘twelve.”’ 
(Recall that each computer move results in a value of ‘‘four’’ for the 
square. Three squares in a row will result in 3 x 4 = 12.) If the com- 
puter won, its IQ will be decremented: 
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WIN CMP#12 
BEQ INTDN 


At this point a jump would occur to INTDN, where the intelligence 
level will be decreased (intelligence lowered). 

A losing tone will be generated to indicate to the player that he or 
she has lost. The corresponding frequency constant is ‘‘FF,’’ and it is 
stored at address FREQ: 


INTDN LDA #$FF 
STA FREQ 


The intelligence level will now be decreased unless it has already 
reached ‘‘zero’’ in which case it will remain at that value: 


LDA INTEL 
BEQ GTMSK 
DEC INTEL 


For a brief time the winning row will be illuminated on the board, and 
the end-of-game tone will be played. First, we clear all LEDs on the 
board: 


GTMSK LDA #0 
STA PORTIA 
STA PORTIB 


At this point, the number of the winning row is contained in index 
register Y. The three squares corresponding to that row will simply be 
retrieved from the RWPT table. (See Figure 11.43.) Let us display the 
first square: 


LDX RWPT1,Y 
JSR LEDLTR 


The LEDLTR routine will be described below. It lights up the 
square whose number is contained in register X. Let us now display 
the next square: 


LDX RWPT2,Y 
JSR LEDLTR 


ARTIFICIAL INTELLIGENCE 
Then, the third one: 


LDX RWPT3,Y 
JSR LEDLTR 


At this point, we should turn off all unnecessary blinking LEDs on the 
board. The new pattern to be blinked is the one with the winning row 
and we must, therefore, change the LTMSKL mask: 


LDA PORTIA 
AND LTMSKL 
STA LTMSKL 


We now do the same for Port 1B: 


LDA PORTIB 
AND LTMSKH 
STA LTMSKH 


Exercise 11-4: Subroutine LEDLTR on line 125 of the program listing 
has just lit the third LED on the board for the winning row. Im- 
mediately after that, we start reading the contents of Port LA, and 
then Port 1B. 

There is, however, the theoretical possibility that an interrupt might 
occur immediately after LEDLTR, that might change the contents of 
Port LA. Would this be a problem? If it would not be a problem, why 
not? If it would, modify the program to make it always work correct- 
ly. 


At this point, Ports A and B contain the appropriate pattern to light 
the winning row. If the player has won, the blink masks LTMSKL and 
LTMSKH contain the same pattern, and will blink the row. We are 
now ready to sound the win or lose tone. The duration is set at ‘‘FF’’: 


LDA #$FF 
STA DUR 


The frequency, FREQ, was set above. We simply have to play it: 


LDA FREQ 
JSR TONE 
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A delay must be provided: 
DLY JSR DELAY 


We are now ready to start a new game with the new intelligence level 
of the computer: 


JMP RESTART 


Back to WIN 


Let us now go back to line 103 of the program listing and examine 
the case in which the computer did not win (1.e., the player won). A 
different frequency constant is loaded at location FREQ: 


LDA #30 
STA FREQ 


Since the player won, the intelligence level of the computer will be 
raised this time. Before it is raised, however, it must be checked 
against the value ‘‘fifteen,’’ which is our legal maximum: 


LDA INTEL 
CMP #$0F 
BEQ GTMSK 
INC INTEL 


The sequence was exactly analagous to the one in which the computer 
wins, except for a different tone frequency, and for the fact that the 
intelligence level of the computer is increased rather than decreased. 


The Computer Moves 


Let us now go back to line 83 of the program listing and describe 
what happens when the computer makes a move. Variable PLAYR is 
incremented, then a delay is provided to simulate ‘‘thinking time’’ for 
the computer: 


COMPMV INC PLAYR 
JSR DELAY 


The computer move is determined by the ANALYZ routine described 
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below: 
JSR ANALYZ 


The computer’s move is entered as a ‘‘four’’ at the appropriate 
location on the board: 


LDA #04 
JSR UPDATE 


Next, we check all of the rows for the possibility of a computer win, 
i.e., for a total of ‘‘twelve’’: 


LDA #12 
WINTST LDY #7 


and so on. We are now back in the main program described previous- 
ly. 

When the program segment outlined above is compared to the one 
that is used for the player’s move, we find that the primary difference 
between the two is that the move was specified by the ANALYZ 
routine rather than being picked up from the keyboard. This routine is 
the key to the level of intelligence of the algorithm. Let us now ex- 
amine it. 


Subroutines 


The ANALYZE Subroutine 


The ANALYZ subroutine begins at line 143 of the program listing. 
The corresponding conceptual flowchart is shown in Figure 11.40. In 
the ANALYZ subroutine the ODDMSK is first set to ‘‘zero.’’ 


ANALYZ LDA #0 
STA ODDMSK 


We now check for the possibility of a computer win during its next 
turn. If that possibility exists, we clearly must play into the winning 
square. This will end the game. A winning situation is characterized by 
a total of ‘‘eight’’ in the corresponding row; therefore let us deposit 
the total ‘‘eight’’ into the accumulator: 
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LDA #08 


A winning situation will occur when the squares in rows 1, 2, or 3 all 
total ‘‘three’’ at the same time. Let us set our filter variable, X, for the 
number of rows that qualify, to ‘‘three’’: 


LDX #03 


We are now ready to use the FINDMV routine: 
JSR FINDMV 


The FINDMV routine will be described below. It must be called with 
the specified ROWSUM in A and with the number of times a match is 
found in X. It will systematically check all of the rows and squares. If 
a square is found, it exits with a specified square number in X and the 
Z flag is set to ‘0.’ Let us test it: 


BNE DONE 


If a winning move has been found, the ANALYZ routine exits. Unfor- 
tunately, this is not usually the case, and more analysis must be done. 

The next special situation to be checked is to see if the player has a 
winning move. If so, it must be blocked. A winning situation for the 
player is indicated by a row total of ‘‘2.’’ Let us load ‘‘2’’ into the ac- 
cumulator and repeat the previous process: 


LDA #02 
LDA #03 

JSR FINDMV 
BNE DONE 


If the player could make a winning move, this is the square where the 
computer should play and we exit to DONE; otherwise, the situation 
should be analyzed further. 

We will now check to see if the computer can implement a trap. A 
trap corresponds to a situation in which a computer move has already 
been made in the same row. We would like to play at the intersection 
of two rows containing computer moves. This was explained above 
when the algorithm was described. This situation is characterized by A 
= 4and X = 2. Let us load the registers with the appropriate values 
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and call the FINDMYV routine: 


LDA #04 
LDX #02 

JSR FINDMV 
BNE DONE 


If we succeed, we exit to DONE; otherwise, we proceed down the 
flowchart diagrammed in Figure 11.40. 

It is at this point that the computer can demonstrate either in- 
telligent or ill-advised play. The behavior of the computer will be 
determined by its intelligence level. We will now obtain a random 
number and compare it to the computer’s IQ. If the random number 
exceeds the computer’s IQ, we will proceed to the left side of the 
flowchart in Figure 11.40 and make an ill-advised move (i.e., a random 
one). If the random number does not exceed the computer’s IQ, we 
will make an intelligent move on the right side of the flowchart. Let us 
generate the random number: 


JSR RANDOM 
We truncate the random number to its right byte so that it does not ex- 
ceed fifteen: 


AND #$0F 
and we compare it to the current IQ of the computer: 


CMP INTEL 
BEQ OK 
BCS RNDMV 


If the random number is higher than the IQ level stored in INTEL, we 
branch to RANDMYV and play a random move. At this point, we will 
assume that the random number was not greater than the IQ level, and 
that the computer will play an intelligent move. We now proceed from 
line 162 (location ‘‘OK’’). 

We will first check to see if this is move #1; then we check to see if 
this is move #4. Let us check for move #1: 


OK LPX MOVNUM 
CPX #1 
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If it is move #1, we occupy any square: 
BEQ RNDMV 

Let us now check for move #4: 
CPX #4 


If it is not move #4, we will check to see if the player can set a trap. 
This will be performed at location TRAPCK. Let us assume here that 
it is move #4. 


BNE TRAPCK 


This section will check both diagonals for the possibility of the se- 
quence player-computer-player. If this sequnce is found, we will play 
to the side. Otherwise, we will go back to the mainstream of this 
routine and check to see if the player can set a trap. The combination 
player-computer-player in a row is detected when the row totals 
‘*six.’’ Therefore, we load the value ‘‘six’’ into the accumulator and 
check the corresponding diagonal. By coincidence, diagonals corre- 
spond to the sixth and seventh entires in our RWPT table. (See 
Figure 11.46.) Let us do it: 


LDX #6 

TXA 

CMP ROWSUM,X 
REQ ODDRND 


If a match is found, we branch to address ODDRND, where we will 
play to the side. This will be described below. If a match is not found 
we check the next diagonal: 


INX 
CMP ROWSUM,X 
BEQ ODDRND 


If, at that point, the test also fails for the second diagonal, we will 
check to see if the player can set a trap: 
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Checking To See If the Player Can Set a Trap (TRAPCK) 


The possibility of a trap for the player is identified (as in the case of 
the computer), when two intersecting rows each contain only a 
player’s move. This has been explained in the description of the 
algorithm above. The value of a row which is a candidate for a trap is 
thereby equal to ‘‘one’’ (one player’s move). The parameters must, 
therefore, be set to A = 1, and X = 2 before we can call the 
FINDMV routine: 


TRAPCK LDA #1 
LDX #2 
JSR FINDMV 
BNE DONE 


If the proper location for a trap can be found, the next move is to play 
there. Otherwise, if possible, the computer moves to the center or, if 
the center is occupied, it makes a random move on the side. 


LDX GMBRD + 4 
BNE RNDMV 
LDX #5 

BNE DONE 


Playing a Random Move on the Side 


The four sides on the board are numbered externally 2,4,6 and 8, or 
internally 1,3,5, and 7. Any odd internal number specified for a move 
will result in our occupying a side position. If we want to occupy a side 
position, we simply load the value ‘‘one’’ in ODDMSK, and we 
guarantee that the random number generated will be one of the four 
corners. This is performed by entering at address ODDRND: 


ODDRND LDA #1 
STA ODDMSK 


Generally, however, we may want to make a random move. This will 
be accomplished by generating and using any random number that is 
reasonable, i.e., by setting ODDMSK to ‘‘0’’ prior to entering at ad- 
dress RNDMV. Let us obtain a random number: 
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RNDMV JSR RANDOM 


Let us strip off the left byte: 
AND 4$0F 


Then let us OR this random number with the pattern stored in ODDMSK. 
If the mask had been set to ‘‘0,’’ it would have no effect on the random 
number. If the mask had been set to ‘‘1,’’ however, it would result in 
our playing into one of the corners (the center is occupied here): 


ORA ODDMSK 


Since the random number which was generated was between ‘‘0’’ and 
**15,’’ we must check to be sure that it does not exceed ‘‘9’’; other- 
wise, it cannot be used: 


CMP #9 
BCS RNDMV 


We must now check to make sure that the space into which we want 
to move is not occupied. We load the square’s number into index 
register X and verify the square’s status by reading the appropriate en- 
try of the GMBRD table (see the memory map in Figure 11.47): 


TAX 
LDA GMBRD,xX 


If there is any entry other than ‘‘0’’ in this square, it means that it is 
occupied and we must generate another random number: 


BNE RNDMV 


We have selected a valid square and will now play into it. When we ex- 
it from this routine, the external LED number should be contained in 
X. It is obtained by adding ‘‘1’’ to the current contents of X, which 
happens to be the internal LED number: 


INX 
DONE RTS 
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FINDMY Subroutine 


This subroutine will evaluate the board until it finds a square which 
meets the specifications in the A and the X registers. The accumulator 
A contains a specified row-sum that a row must meet in order to 
qualify. Index register X specifies the number of times that a par- 
ticular square must belong to a row whose row-sum is equal to the one 
specified by A. 

The FINDMYV subroutine starts with a square status of ‘‘0’’ for 
every square on the board. Every time it finds a square that meets the 
row-sum specification, it will increase its status by ‘‘1.’’ Thus, at the 
end of the evaluation process, a square with a status of ‘‘1’’ is a square 
which meets the row-sum specifications once. A square with a status 
of ‘‘2’’ is one that meets the specification twice, etc. 

The final selection is performed by FINDMV, which checks the 
value of each square in turn. As soon as it finds a square whose status 
matches the number contained in register X, it selects that square 
as one that meets the initial specification. 

The complete flowchart for FINDMV is shown in Figure 11.49. 
Essentially, the subroutine operates in three steps. These steps are in- 
dicated in Figure 11.49. Step 1 is the initialization phase. Step 2 cor- 
responds to the selection of all squares that meet the row-sum 
specifications contained in register A. The status of every empty 
square in a row that meets this specification is increased by one as all 
the rows are scanned. Step 3 is the final selection phase. In this phase, 
each square is looked at in turn until one is found whose status match- 
es the value contained in X. As soon as one is found, the process 
stops. That square is the one that will be played by the computer. If a 
square is not found, the routine will exit, with the index X having 
decremented to ‘‘0,’’ and this will be used as a failure flag for the call- 
ing routine. 

Let us now examine the corresponding program. It starts at line 204 
in the program listing. 


Step 1: Initialization 


Index registers X and A will be used in the body of this subroutine. 
Their initial contents must first be preserved in temporary memory 
locations. Addresses TEMP1 and TEMP2 are used for that purpose. 
(See Figure 11.47 for the memory map.) 

Let us preserve X and A: 
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STEP 1 
INITIALIZATION 


STEP 2 
COMPUTING 
STATUS 
(A-SELECTION) 


STEP 3 
FINAL SELECTION 
(A AND X) 
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FINDMV 









SAVE X AND A 
PARAMETERS 
GET 1ST SQUARE 
IN ROW 
CLEAR SQUARE 
STATUSES 
CHEKLP 


CHECK ROWSUM 


AGAINST SPECIFIEO 
VALUE 


INCREMENT ITS 
STATUS 





NEXT ROW 
CHECK 3RD SQUARE 


NO 
: 
(NOCHEK) S 
YES 


CHECK LAST SQUARE 





SQUARES. 
STATUS = 
Cigar tide 






NEXT SQUARE 
YES 


NO 
OUT 
PLAY THIS 
SQUARE 


Fig. 11.49: FINDMY Flowchart 
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FINDMV STX TEMP2 
STA TEMP! 


The status of the board is then cleared. Each square’s status must be 
set to ‘‘0.’’ This is accomplished by loading the value ‘‘0’’ into the ac- 
cumulator, then going through a nine cycle loop that will clear the 
status of each square in turn: 


LDA #0 

LDY #8 
CLRLP STA SQSTAT,4 

DEY 

BPL CLRLP 


Step 2: Computing the Status of Each Square 


Each of the eight possible row-sums will now be examined in turn. 
If the row-sum matches the value specified in the accumulator on 
entry, each empty square within the specified row will have its status 
incremented by ‘‘1.’’ If the row-sum value does not meet the minimum, 
the next one will be examined. Index register Y is used as a row pointer. 
The RWPT table described at the beginning of this program and shown 
in Figure 11.46 will be used to successively retrieve the three squares 
that form every row. Let us first initialize our counter: 


LDY #7 
Now, we will check the value of the corresponding row-sum: 


CHEKLP LDA TEMPI1 
CMP ROWSUM,Y 
BNE NOCHEK 


Let us assume at this point that the row-sum is indeed the correct one. 
We must now examine each of the three squares in the row. If the 
square is empty, we increment its status. The first step is to obtain the 
square’s value by looking it up in the table, using index register Y as a 
displacement, and using addresses RWPT1, RWPT2, and RWPT3 
successively as entry points into the row table. Let us try it for the first 
square: 
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LDX RWPT1,Y 


Index register X now contains the square number. If the square is 
empty, a new subroutine, CNTSUB, is used to increment its status: 


JSR CNTSUB 


It will be described below. 
Let us now do the same for the second and third squares: 


LDX RWPT2,Y 
JSR CNTSUB 
LDX RWPT3,Y 
JSR CNTSUB 


We have now completely scanned one row. Let us look to see if any 
more rows need to be checked: 


NOCHEK DEY 
BPL CHECKLP 


The process is repeated until all the rows have been checked. At this 
point, we enter into step 3 of FINDMYV. (Refer to the flowchart in 
Figure 11.49.) 


Step 3: Final Selection 


Index register X will be used as a square pointer. It will start with 
square #9 and continue to examine squares until one is found that 
meets the additional X register specifications, i.e., the number of 
times that the given square belongs to a row with the appropriate row- 
sum value. Let us initialize it: 


LDX #9 


Now, we compare the value of the square status with the value of the 
specified X parameter: 


FNMTCH LDA TEMP2 
AND SQSTAT-1,X 
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If the square status matches the value of the parameter, we select this 
square: 


BNE FOUND 
Otherwise, we try the next one: 


DEX 
BNE FNMTCH 
FOUND RTS 


Exercise 11-5; Why are “‘AND”’”’ and “BNE”? rather than ‘“‘CMP’’ and 
“BEQ”’ used to find a matching square above? (Hint; decide what the 
difference in the program’s strategy would be.) 


COUNTSUB Subroutine 


This subroutine is used exclusively by the FINDMYV subroutine and 
increments the status of the square whose number is in register X, if 
the square is empty. First, it examines the status of the square by look- 
ing for its code in the GMBRD table: 


CNTSUB LDA GMBRD,X 
BNE NOCNT 


If the square is occupied, an exit occurs. If itis not, the status value of 
the square is incremented: 


INC SQSTAT,X 
NOCNT RTS 


UPDATE Subroutine 


Every time a move is made, it must be displayed on the board. 
Then, the appropriate code must be stored in the board representa- 
tion, I.e., in the table GMBRD. Finally, the new ROWSUMs must be 
computed and stored at the appropriate locations. These functions are 
accomplished by the UPDATE subroutine. 

The player’s code is contained in the accumulator. The position into 
which the move is made is contained in register X. Since the number in 
index register X is the value of an external LED, it is first decremented 
in order to match the actual internal LED number: 
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UPDATE DEX 


The value must now be stored in the appropriate location of the GMBRD 
table which contains the internal representation of the board: 


STA GMBRD,X 


Note that the value of X is simply used as a displacement into the 
table. However, the accumulator happens to contain the appropriate 
code that is merely written at the specified location. At this point, UP- 
DATE would like to display the move on the LEDs. It must first 
decide, however, whether to light a steady LED or make it blink. To 
do this, it must determine whether it is the player’s move or the com- 
puter’s move. It does this by examining the code contained in the ac- 
cumulator. If the code is ‘‘four,’’ it is the computer’s move. If the 
code is ‘‘1,’’ it is the player’s move. Let us examine it: 


CMP #04 
BEQ NOBLNK 


If it is the computer’s move, a branch will occur to address NOBLNK; 
otherwise, we proceed. Let us assume for the time being that it was the 
player’s move: 


JSR LIGHT 


The LIGHT subroutine is used to set the bit blinking and will be 
described below. Upon exit from LIGHT, the accumulator contains 
the bit in the position that is required to set the LED blinking. At this 
point, the blink masks should be updated: 


ORA LTMSKL 
STA LTMSKL 


If the carry was ‘‘zero’’ upon completion of LIGHT, one of the bits 
zero through seven had been set and we are done: 


BCC NOBLNK 
Otherwise, if the carry had been set to 1, it would mean that LED #9 


had to be set, i.e., that the high order part of the mask had to be 
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modified. Let us do it: 


LDA #01 
STA LTMSKH 


At this point, the LED masks are properly configured and we can give 
the order to light the LEDs: 


NOBLNK JSR LEDLTR 


The LEDLTR routine lights up the LED specified by register X. Note 
that if it was a computer move, this LED will remain steadily on. If it 
was a player’s move, this LED will be turned off and on automatically 
as interrupts occur. 

Next, we must update all row-sums. Index register X is used as a 
row pointer. We will look at all eight rows in turn. In anticipation of 
the addition, the carry bit is cleared: 


LDX #7 
ADDROW CLC 


The first square of row eight is examined first: 
LDY RWPTI1,X 


Note that index register Y will contain the internal square number 
following this instruction. This will immediately be used for another 
indexed operation. The contents of the square will be read so that the 
new row-sum may be computed. (The row-sum for that row may or 
may not be the same as before. No special provision has been made 
for restricting the search to the two or three rows affected.) All rows 
are examined in turn, and all row-sums are re-computed to keep the 
program simple. 
Let us obtain the current square’s value: 


LDA GMBRD,Y 
The GMBRD table is accessed using index register Y as a displace- 
ment. Note that the two instructions shown above implement a two- 


level indexing operation. This is a most efficient data retrieval tech- 
nique. At this point, the accumulator contains the value of the first 
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square. It will be added to the value of the two following squares, The 
process will now be repeated: 


LDY RWPT2,X 
ADC GMBRD,Y 


The number of the second square has been looked up by the LDY in- 
struction and its value stored in Y. The addition instruction looks up 
the actual value of that square from GMBRD, and adds that value to 
the accumulator. This process is performed one more time for the 
third square: 


LDY RWPT3,X 
ADC GMBRD,Y 


The final value contained in the accumulator is then stored in the 
ROWSUM table at the position specified by the value of index register 
X (the row index): 

STA ROWSUM,X 


The next row will now be scanned: 


DEX 
BPL ADDROW 


If X becomes negative, we are done: 
RTS 


LED LIGHTER Subroutine 
This subroutine assumes upon entry that register X contains the in- 


ternal LED number of the LED on the board which must be turned on. 
The subroutine will therefore turn that LED on using the LIGHT 


subroutine, which converts a number in register X into a bit pattern in 
the accumulator for the purpose of turning on the specified LED: 


LEDLTR JSR LIGHT 


At this point, either Port 1A or Port 1B must be updated. Let us 
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assume initially that it is Port LA Qf it is not Port 1A, which we can 
find out by examining the carry bit below, then the pattern contained 
in the accumulator is all zeroes and will not change the value of Port 
1A): 


ORA PORTIA 
STA PORTIA 
BCC LTRDN 


The carry bit is tested. If it has been set to 1 by the LIGHT subroutine, 
then LED #9 must be turned on. This is accomplished by sending a 
‘1’? to Port 1B: 


LDA #1 
STA PORTB 
RTS 


PLRMYV Subroutine (Player’s Move) 


This subroutine obtains one correct move from the player. It chirps 
to get his or her attention and waits for a keyboard input. If a key 
other than 1 through 9 is pressed, it will be ignored. Whenever the 
subroutine gets a move, it verifies that the square on the board is in- 
deed empty. If the square is not empty, the subroutine will ignore the 
player’s move. Let us first generate a chirp in order to get the player’s 
attention: 


PLRMV LDA #380 
STA DUR 


LDA #$10 
JSR TONE 


Now, let us capture the key closure: 
KEYIN JSR GETKEY 


We must now check to see that the key that is pressed is between 1 and 
9. Let us first check to see that it is not greater than or equal to 10: 


CMP #10 
BCS KEYIN 


Let us now verify that it is not equal to ‘‘zero’’: 
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TAX 
BEQ KEYIN 


Finally, let us verify that it does not correspond to a square that is 
already occupied: 


LDA GMBRD-1,X 
BNE KEYIN 
RTS 


Exercise 11-6: Modify the PLRMV subroutine above so that a new 
chirp is generated every time a player makes an incorrect move. To tell 
the player that he or she has made an incorrect move, you should 
generate a sequence of two chirps, using a different tone than the one 
used previously, 


LIGHT Subroutine 


This subroutine accepts an LED number in register X. It returns 
with the pattern to be output to the LEDs in the accumulator. If LED 
9 is to be lit (X = 8), the carry bit is set. This subroutine is straightfor- 
ward and has been described previously: 


LIGHT STX TEMP1 
SEC 
ROLA 
DEX 
BPL SHIFT 
LDX TEMP! 
RTS 


DELAY Subroutine 


This is a classic delay subroutine that uses two nested loops that 
have a few extra instructions within the loop that are designed to waste 
time: 


DELAY LDY #$FF 
DL1 LDX #$FF 
DL2 ROL DUR 

ROR DUR 
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DEX 
BNE DL2 
DEY 
BNE DLI1 
RTS 


Interrupt Handling Routine 


Every time that an interrupt is received, the appropriate LEDs will 
be complemented (turned off if on, or on if off). The positions of the 
LEDs to be blinked are specified by the contents of the LTMSK 
masks. Two bytes are used in memory for the low and high halves, 
respectively. (See Figure 11.47 for the memory map.) 

Turning the bits on or off is accomplished by an exclusive-OR in- 
struction that is the equivalent of a logical complementation. Since 
this routine uses the accumulator, the contents of A must be preserved 
at the beginning of the routine. It is pushed onto the stack and 
restored upon exit. The subroutine is shown below: 


INTVEC PHA 
LDA PORTIA 
EOR LTMSKL 
STA PORTIA 
LDA PORTIB 
EOR LTMSKH 
STA PORTIB 
LDA TILL 
PLA 
RTI 


Exercise 11-7: Notice the LDA TILL instruction above. The next in- 
Struction in this subroutine is PLA. It will overwrite the contents of 
the accumulator with the words pulled from the stack. The contents of 
the accumulator, as read from TILL, will therefore be immediately 
destroyed. Is this a programming error that was accidentally left in 
this program? If not, what purpose does it serve? (Hint: this situation 
has been encountered before. Refer to one of the earlier chapters.) 


INITIALIZE Subroutine 


This subroutine was described in the body of the main program 
above. 
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RANDOM and TONE Subroutines 


These two subroutines were described in previous programs. 


SUMMARY 


This program was the most complex we have developed. Several 
algorithms have been presented, and one complete implementation of 
an ad hoc algorithm has been studied in great detail. Readers interested 
in games of strategy and programming are encouraged to implement 
an alternative algorithm. 


LINE # LOC CODE LINE 

0002 0000 ? “TICTAC’ 

0003 0000 , PROGRAM TO FLAY TIC-TAC-TOE ON SYM-1 
0004 0000 PCOMPUTER WITH 3X3 LED MATRIX AND HEX KYBD. 
00035 0000 5 AT BEGINNING OF GAME, IF ‘F’ KEY IS 
0006 0000 *PRESSED, PLAYER GOES FIRST, ANY OTHER KEY» 
0007 0000 sCOMPUTER GOES FIRST. THEREAFTER? TO MAKE 
0008 0000 *& MOVE» PRESS KEY CORRESFONDING TO NUMBER 
0009 0000 7OF SQUARE DESIRED. 

00190 0000 ’ 

0011 0000 sLINKAGES? 

0012 0000 ; 

0013 0000 GETKEY = $100 

0014 00900 ACCESS = $8B864 

QO015 9000 3 

0014 0000 $1/0; 

0017 0000 ? 

0018 0000 PORTIA = $A001 9¥K 4522 VIA Fl... 
0019 0000 DIRIA = $A0O3 

0020 9000 PORT1IB = $A000 

0021 0000 DNKRIB = A002 

0022 6000 IER = $AQ0E sINTERRUPT ENABLE REGISTER. 
00235 0000 ACR = $A00R *AUXTLIARY CONTRGL REGISTER. 
0024 0000 TALL = $A004 *TIMER 1 LATCH LOW. 
0025 0000 T1CH = $A00S TIMER 1 LATCH HIGH, 
00246 0000 PORTSE = $ACOO 9*#X6522 VIA #3.... 
0027 0000 DORSB = $ACO2 

0028 0000 TRQVL = $A67E 

0029 0000 IRQVH = $A67F 

0030 0000 ’ 

oosi 09000 *TABLE OF SQUARES IN BOARD’S 8 ROWS. 

0032 0000 3 

0033 0000 x = 0 

0034 0000 ? 

0035 0000 00 RWPT1 BYTE Orlr2yvOr3rhr0r2 


00g5 o001 O1 
0035 90002 02 
0035 0003 00 
0035 0004 O83 
0035 0005 06 
0035 0006 00 
0035 0007 O02 
0036 oO0o08 O38 RWETO HYTE 3S24eSet24772424 
0036 0009 04 
0034 000A O58 
0036 O0OCB Ot 
0036 O00C 04 
0036 O00or 07 
0036 OO00E 04 
0034 O0O0F 04 
0037 0010 04 RWPTS .RYTE S67 28x 2r5eBr Bs 


Fig. 11.50: Tic-Tac-Toe Program 
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rVARIABLE STORAGES: 


f 
CLRST 
GMERD 


SQSTAT 
ROWSUM 


RNDISCR 
TEMP 1 
TEMP2 
MOVNUM 
PLAYR 
LTMSKH 
LTMSKL 
NUR 
FREQ 
CLREND 
ODIMSK 


INTEL 


=p “ew 


td 


START 


RESTRT 


PLAYLP 


COMPMY 


WINTST 
TSTLP 


WIN 


>1ST LOC. TO BE CLEARED BY ‘INIT’. 


K=K+t9 7GAME ROAR: FLAYER’S POSITIONS ON 
sBOARD AS $O1=FLAYERy $04=COMPUTER. 

KEK+tD #SQUARE’S TACTICAL STATUS. 

K=K+t8 #SUM OF VALUES OF SQUARES IN 


sROW, WHERE 1=PLAYERs 
$4=COMPUTERr O-EMPTY. 


K=KT+6 sRNI # GEN. SCRATCHFAD. 

wK=K+1 

*=K+1 

M=¥+1 *NUMBER OF CURRENT MOVE. 

K=Kt1 9WHO’S TURN IT IS. 

=K+1 *HIGH ORDER BLINK MASK FOR LEDS 
¥=Kt1 r7LOW ORDER SAME. 

x=xX+1 *TURATION FOR TONES. 

X=K+1 sFREQUENCY OF TONES. 


*LAST LOC TO BE CLEARED BY ‘INIT’. 


K=KX+1 rMAKES FRODUCT OF RANDOM MOVE 


*GENERATOR ODD TO FICK CORNER. 


K=k+1 INTELLIGENCE QUOTIENT. 


KHKKKK MAIN PROGRAM XXX KKK 


$200 
#12 
INTEL PSET 1.Q. AT 75% 
INIT ?INITIALIZE FROGRAM. 
GETKEY *GET FIRST MOVE PMETERMINER. 
#$F IS IT ’F’? 
FLAYLF 
#01 *YES, PLAYER FIRST. 
PLAYR 
MOVNUM +COUNT THE MOVES. 
PLAYR sWHO’S TURN? 
COMPMYV 9IF Of COMPUTER’S MOVE. 
PLAYR yPLAYER’S TURNe COMPUTER NEXT. 
PLRMV +GET PLAYER‘’S MOVE. 
#01 *STORE PLAYER’S FIECE. 
UPIIATE SPLAY ITr ANT UPDATE ROWSUMS. 
#03 sLOALD PATTERN FOR WIN SEARCH. 
WINTST sCHECK FOR WIN. 
PLAYR ICOMPUTER’S TURN: PLAYER NEXT. 
DELAY ryTIME FOR COMPUTER TO ’THINK’. 
ANALYZ ‘FIND COMPUTER’S MOVE. 
#04 *PSTORE COMPUTER‘’S FIECE, 
UPDATE ‘PLAY IT. 
#12 FLOAT PATTERN FOR WIN SEARCH. 
#7 LOOP 7X TO CHECK ROWSUMS 
ROWSUMrY rFFOR WINNING FATTERN, 
WIN sWIN IF PATTERN FOUND, 
+LOGP ANT 
TSTLF +TRY AGAIN. 
MOVNUMN yIF MOVE NUMBER = 9» 
#9 ¢THEN GAME IS TIE. 
PLAYLF sKEEP PLAYING IF NOT. 
#SFF *SET ALL. LIGHTS TO BLINKING. 
LTMSKL 
LTMSKH 
[tLyY *#KEEP THEM BLINKING A WHILE, 
#12 SCOMPUTER WIN? 
INTON ‘IF YES, I.Q. DOWN. 


Fig. 11.50: Tic-Tac-Toe Program (Continued) 
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0103 0251 AP? 1E LIA #30 sLOAT FREQ. CONST FOR WIN TONE. 
0104 0253 85 3F STA FREQ 

0105 0255 AS 41 LUA INTEL 

0106 0257 C9? OF CMP #$0F 7I.Q. AS HIGH AS POSSTEHILE? 
0107 O259 FO OE BEQ GTMSK IF YES: TON’T CHANGE IT. 

0108 oO2SEB £6 41 INC INTEL *RAISE IF.Q. 

0109 o25n dO OA BNE GTMSK ?7GQ FLASH ROW. 

0110 O25F AS FF INTHN LIA #$FF 7LOAD FREQ. CONST. FOR LOSE TONE. 
QO1iii oO261 35 JF STA FREQ 

0112 0263 AS 41 LOA INTEL 71.Q. - O°? 

0113 0265 FO 02 BEQ GTMSK UF YESr TON’ T NECREMENT! 

0114 0267 Cé 41 NEC INTEL 7I1.Q. DOWN. 

0115 0269 A? OO GTMSK LIA #0 *CLEAR ALL LEDS. 

0116 O26k 8D O1 AO STA FORT1IA 

0117 O26E 8 00 AO STA PORTIFB 

0118 0271 R6é 00 LUX RWPT1ryY sGET BRIT IN ACCUM. TD LIGHT 
0119 0273 sLET) CORRESFONI ING TO 187 SQUARE 

0120 06273 ¢IN WINNING ROW. 

0121 0273 20 6F 03 JS& LEPLTR 

0122 0276 &Ké6 08 LIX RWETOrY s5GET SECON BIT. 

0123 0278 20 6F O3 JSR LEnELTR 

0124 O27K RBé& 10 LOX RWPET3*Y sGET 3kY BIT. 

0125 O27 206 6F O03 JSR LEDtLTR 

0126 oO280 ALI Of AD LItA PORTIA ?7MASK OUT UNNECESSARY BITS IN 
O127 O283 25 30 ANE t.TMSKL s7BLINK MASKS. 

0128 oO285 85 30D STA LTMSKL 

0129 0287 A 00 AQ LIA FORTIB 

0130 O28A 25 3C ANTI LTMSKH 

0131 O28C 85 3C STA LTMSKH 

0132 O28F AS FF LDA #$FF 7SET WEN/LOSE TONE BURATION. 
0133 O290 85 3E STA NUR 

0134 0292 AS SF LIA FREQ *GET FREQUENCY. 

0135 0294 20 AI 00 JSR TONE gPLAY TONE. 

OL36 0297 30 A4 OF D_Y JSR DELAY TDELAY TO SHOW WIN OR TIE. 
O137 O29A 4€ 04 02 JMP RESTRT ?FSTART NEW GAME, ITION’T CHNG. I.Q. 
0138 0290 ; 

0139 O291 > *KXKKK SUBROUTINE ‘ANALYZE’ &k¥xHK 

0140 O29II *DOES A STATIC ANALYSIS GF GAME ROAR, ANT 

0141 oO29n sRETURNS WITH A MOVE IN REGISTER xX, 

0142 0292 5 

0143 O29R Ad OO ANALYZ LEA #0 *SET MASK THAT MAKES RANTOM MOVES 
0144 O29F 85 40 STA ODDMSK ?BE SITES TO O, 

0145 O2AL A OB LDA #08 #CHECK FOR WINNING MOVE FOR 
0146 OFA A2 O3 LIX #03 +COMFUTER. 

0147 O2AS 20 04 OF ASR FINIMY 

0148 #O2AB ho 59 BNE TONE 7IF FOUNTIt»r RETURN. 

0149 O2AA AP O2 LIA #02 CHECK FOR WINNING MOVE FOR 
0150 QO2AC A2 O38 LUX #03 IFLAYER. 

0151 ODAE 20 04 03 JSF FENIMY 

0152 O21 dO 50 KRNE TONE ?TF FOUNT!s RETURN. 

0153 O2B3 AP O04 LNA #04 35CAN COMPUTER SET A TRAF? 

O154 oO2BS A2 02 LUX #02 

0155 O27R7 20 OA O03 JSR FINDIMY 

9156 O2BA [0 47 BNE TIONE *IF YES» PILLAY ITT, 

0157 O2FC 20 9A 00 JSR RANDOM ?GET A RANIIOM NUMBER... 

0158 O2KRF 29 OF ANE #80F F..-AND MARE IT O-15.,.- 

Oo1s9 O2C1 cS 41 CMF INTEL rFOR USE AS STURPII/SMART NETERMINER. 
0160 oO2C3 FO O2 REQ OK 7IF BOTH ARE EQUAL» SKIP TEST 
0161 O2CS BO 2B BCS RNDAY ?ITF RNP# = INTEL se FLAY A SIUMR MOVE. 
0162 O2C7 Aé 3A OK LDX MQVUNUM 

0163 O2CF EO O1 CPX #1 71ST MOVE? 

0164 OSCE FO 25 REQ RNEIRMY 7IF YES» FLAY ANY SQUARE. 
0165 oO2clh EO 04 CPX £4 34TH MOVE? 

0166 O2CF ko OC BNE TRAFCK 7IF NOTs CONTINUE. 

0167 o2tii AZ 06 LIX #6 s1QAn INDEX TO 1ST IAG. ROWSLUM. 
0168 O203 BA TXA *LOAR SUM OF FOW HAVING F-C-F. 
0169 oO20n4 f& 2A CMF ROWSUM:sX <CHECK TF 18ST TIAG. IS F-f-F 
0170 O2D6 FO 14 BKEQ OFRRNNT IF YESr PLAY SITE. 

0171 o2nre E8 INX 3CHECK NEXT [TTAG. ROWESLUM 

0172 oone IS 2A CMF ROWSIUM, X 

0173 O20DRB FO 11 BEQ SODTRNG 

0174 O2fm A9 O1 TRAPCK LIA #1 CAN FLAYER SET A TRAE? 


Fig. 13.50: Tic-Tac-Toe Program (Continued) 
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BS 19 
IO 02 
F& 21 


CA 
93 18 


OS 


00 


00 


00 


03 


03 


03 


OODRNE LoA 


RNDMY JSR 


KXKKKK SURROUTINE 
sFINIS A SQUARE MEETING 
*FASSED IN IN A AND X. 


#2 
FTNTIMY 
DONE 
GMERII+4 


. RNDMY 


OnDMSK 
RANDOM 
#$0F 

OnUMSE 


" #9 


RNDMY 


GMBRIMs X 


” RNIMY 
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7IF YES» FLAY PLOCK. 
71S CENTER 
FOCCUPTEN? 

#NO$ FLLAY IT. 


ySET OLGMASK TO 17 SO 

FMOVE WILL BE A SITE, 

7GET RANDOM # FOR MOVE, 

MAKE IT 0-15. 

7MAKE ODF # TF CORMER MEEMET, 
#NUMRER TOO HIGH? 

rIF YES: GET ANOTHER. 


sSPACE OCCUFTER? 

$TF YES? GET ANOTHER MQUE, 

7 INCREMENT & TO MATCH OUTPUT OF FINTMU, 
sRETURN W/ MOVE TN Y., 


“FINS MOVE © yok 


SFECIFICATIONS 


SINIEX REGISTER X CONTAINS 


yMASK THAT? 


NUMBER OF 
y7RQWSUM IN 


yFOR SQUARE TO QUALTFY. 


, 
FINDA STX 
STfn 
LIA 
LIY 
CLRLP STA 
DEY 
EPL. 
LIV 
CHEKLF LI 
CMF’ 
BNE 
LIX 
JSR 
LIX 
JSR 
LIX 
JSR 
NOCHEK EY 
RP. 
LItX 
FNMTCH LDA 
ANI! 
BNE 
DEX 
ENE 
FQUND RTS 
] 


7 KEKKKE SUBROUTINE 


WHEN QF ’EN 


WITH 


TIMES A SQUARE FITS ROWS WITH 
ACCUM.,s MUST YIELE A ONE 


TEMF 2 
TEMF 2 

#0 

#8 
SASTAT-:Y 


CLRLF 
#7 
TEMF Lt 
ROWSUM» Y 
NOCHE 
RWFT1:Y 
CNTSUH 
RWET27Y 
CNTSUB 
RWPT3:Y 
CNTSUB 


CHER?.F 

#9 

TEMP2 
SQSTAT—-1 9X 
FOUNT 


FNMTCH 


FSOAVE REGISTERS. 


SCLEAR SOUARE STATUS REGISTERS. 


7L.AQOF 7™x 

sHOES ROWSUM 

PMATCH PARAMETER? 

IF NOT: TRY NEXT. 

sCHECS 18T SOUARE IM FOW. 
PINCREMENTITS STATUSTFE TT°S EMPTY. 
300 2NT CQUARE. 


7AND THIRD. 

7 FRY NEXT ROW. 

LOAD PARAMETER. ~~ 

FCSQUARE STATUS SANT CPARAM) > O? 


IF YES» PLAY ¥ AS MONE. 
PNECREMENT ANE TRY NEXT SOSTAT. 


“COUNTSURS KERKE 


PINCREMENTS SQSTAT OF EMPTY SQUARES, 


r 

CNTSUB LDA 
BNE. 
INC 

NOCNT RTS 


ra 
’ 
e 
r 


KHKKKK SUPROUTINE 


GMERItr X 
NOCNT 
SQSTAT sX% 


7>GET SQUARE. 

rIf FULL> SKIF. 
PINCREMENT SQSTAT 
FDIONE, 


“UPDATES Yee 


rFLAYS MOVE HY STORING CODE PASSED IN IN ACCUM. 
sAT SQUARE SPECIFIED RY X REG. 
r7ALSO LIGHTS/SETS BLINKING FROFER LET» 


PAND COMPUTES ROWSUMS. 


9 
UPDATE TEX 
STA 


GMERD>X 


sHECREMENT MOVE TO MATCH INSIEXING. 
7PLAY MOVE, 


Fig. 11.50: Tic-Tac-Toe Program (Continued) 
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CMP F804 PCOMPUTER SS MOVE? 
























KEQ NORLNK s1F YES, DON’T SET LES BLINKING, 

03 JSR LIGHT FPLAYER SS MOVES GETRIT CORRESPONDING 
#TO LED TO BE SET TO RLINKING. 

QRA LTMSKL sP LACE BIT- EIN BLINK MASKS, 

STA LTMSKI. 

BCC NOELNK IF CrO7 NON’T SET FIT 9, 

LEA #01 75ET BIT © 72. BLINKING. 

STA LTMSKH 
03 NOBLNK JSR LEDLTR FLIGHT LET. 

LOX #7 sLOOF TO COMPUTE FOUSUME, 

ADNROW CL sPREP ARE FOR ADMITION, 

LOY RWETL eX 7GET FIRST SQUARE AMGRESS, 
00 LIA GMRRI-:Y GET CONTENTS OF SQUNAKE. 

LIY RWET 2X sATT SECONE SQUARE IN ROW. 
00 ANC GMERIrY 

LOY RWET 3s xX PARI FINAL SQUARE. 
00 ANC GMERI, Y 

STA ROWSUM sx *SAVE ROWSLUM 

EX 

RPL ARROW GET NEXT ROWSUM, 

RTS 





























’ 
y WKKKKK SURROUTINE “LEN LIGHTER’ keeeeY 
*GIVEN AN ARGUMENT TN ™ REGr LIGHTS 
gLED CO-B> CORRESPONTIING TO THAT ARGUMENT. 
’ 
03 LEMLTR JSR LIGHT sGET PIF IM CORRECT POSITION 
AO ORA FORTIA yLIGHT LEM. 
AO STA FORTIN 
BCC LTRIIN 7IF Len #9? MOT TD BPE LITs ENTF. 
LDA #1 71 IGHT LED #9 
AG STA FORTE 
LTRIIN RTS 7 ONE. 
, 
5 KHHRKKK SUBROUTINE 'FPLAYER’S MOVES SEER 
9GETS FLAYER‘’S MOVE; CHECKS FOR ERROES. 
bd 
FLRMY LIA #680 sMAKF SHORT REEF TO STGMAL. 
STA TUR SKREYROQARDT TNPUT NEETET. 
LEA #%10 
00 JSR TONE 
O1 KEYIN JSF GETREY #GET MONE, 
CMF #19 sQU7T OF ROUNTIS? 
HCS KEYIN TF YES: GET AMOTHER. 
TAX 
REQ KEYIN PIF MONE - OF GET ANOTHER. 
LIA GMERI-1sX PSQUARE EMF TY? 
ENE KEYIN 7EF NOTr TRY AGAIN. 
RTS 





y 

9 Xo SUBROUTINE “LIGHT ’ toe 
ISHIFTS A ONE BIT LEFT IN ACCUMULATOR TO 
3f POSITION CORRESPONDING TO THE 
sARGUMENT PASSEF IN IN REG. X. IF X-8y 
sCARRY IS SET. 



















; 
LIGHT STX TEMP 1 ISANE Xs 

LIA #0 ACLEAR ACCUM. FOR SHIFT. 

SEC ‘GET BIT TQ BE SHIFTED. 
SHIFT ROL A rSHIFT BIT 1 FFT. 

Tle X 

BPL SHIFT FCOUNT TOWM ANI? LOoOr. 

L&x TEMF 4 *RESTORE %, 

RTS 





, 
> XKKKKK SUBROUTINE “THLAY’ *#* Kee 







TELAY LOY #€$FF 
Th 2 LIX #$FF 
NL? ROL TUR *WASTE TIME, 






ROR DUR 






Fig. 11.50: Tic-Tac-Toe Program (Continued) 
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O3AC 
O3AD 
OJAF 
O3R0 
OSR2 
O33 
0383 
O3R3 
O3B3 
OSB 
OSES 
OTR4 
0387 
OSB9 
O3BC 
O3RF 
O03C1 
03C4 
03C7 
03C8 
O3C9 
O3C9 
O3c? 
O3C9 
O3c? 
0050 
0050 
0052 
0054 
0054 
0057 
0059 
OO5C 
COSE 
0060 
0062 
0065 
00468 
006K 
ooét 
0070 
0073 
0073 
0073 
0076 
0076 
0078 
OO7R 
007D 
0080 
0082 
0085 
0087 
00BA 
0oac 
OO8F 
C091 
0094 
0097 
0098 
0099 
OO9A 
009A 
OG9A 
OO9A 
OOPFA 
OO9FA 
OOSE 
ooon 
OO9F 
OOA1 
O0AS 


F9 


F4 


A0 


AO 
AO 


AX 
AOD 


AO 


ARTIFICIAL INTELLIGENCE 


WEX 

KNE [tL? 

ney 

RNE [DL1 

RTS 
y 
+ *KKKKX INTERRUPT HANTIL ING ROUTINE Ke RRRH 
7AT EACH INTERRUPT, LENS WHOSE FOSTTIONS IN 
THE BLINK MASKS HAVE QNES IN THEM ARE TURNED 
9ON IF OFF>y QFF IF ON, 
INTVEC FHA 

Lid FORTIA 

EOF LTMSKI. 

STA FORTIA 

LOA FORTIF 

EOR LTMSKH 

STA FORTIR 

LDA Tale. 

FLA 

RTI 


KHOHKH SUBROUTINE ‘INITIALIZE’ YH OKY 
N 


INITIALIZES FROGRKAM. 


ae “6b <a ‘UD 


x - €59 


bd 
INIT LOA #0 7CILEAR STORAGES, 
LOX #CLREND-CLEST 
CLRALL STA CLRST7x 
TE x 
REL. CLRALL 
tQA FILL *GET RANTIOM NUMPER GOEMERATOR SEETI. 
STA RNIISCE+1 
STA RNIISCR+4 
LOA #$FF 
STA TRIN $SET UF I70 
STA DRI 
STA DPIRSE 
LIA #90 PCLEAR LEDs 
STA FORTIA 
STA FORTIPE 
SET UF TIMER FOR INTERRUPTS WHICH 
sRLINK LEDS. 


JSR ACCESS PUNPROTEST SYM-1 SYSTEM MEMORY TQ 

ee 3SET UP INTERRUFT VECTORS. 

LOA FAINTVEC FLOAN LOW BYTE INTERSUET VECTOR, 
STA TRQVL 7STORE AT INTERRUPT “VECTQF LOCATION 
LOA #-INTVEC SLOAN HI BYTE INTERRUPT VECTOR. 

STA TRQVH STORE. 

LDA t¢7F sCLEAR INTERRUET ENABLE REGISTER. 
STA IER 

LOA #€C00 y,ENABLE TIMER’ INTERRUPT. 

STA IER 

LIA #$49 FENABLE TIMER? IN FREE-RUN MOTE. 
STA ACR 

LIA #¢FF 

STA FILL 7SET LOW LATCH ON TIMER 1. 

STA T1iCH PSETHIGHLATCHE START INTERRUPT COUNT. 
CLI FENABLE INTERRUFTS. 

cLo 

RTS 


’ 
r *XKHKRK SUBROUTINE “RANDOM! ©XXKKK 
7RANDOM NUMBER GENERATOR: RETURNS NEW 
*RANDOM NUMBER IN ACCUMULATOR, 
’ 
RANDOM SEC 

LDA RNISCR+1 

ANC RNINSCK+4 

ANC RNISCR+HS 

STA RNDISCR 

LUX #4 


Fig. 11.30: Tic-Tac-Toe Program (Continued) 


285 
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O391 OOAS ES 
O392 OOA7 BS 
O393 QO0AP CA 
0394 O0AA 10 
0395 O0AC 60 
0394 OOAL 

0397 OOAL 

0398 OOAn 

0399 OOAD 

0400 OOANR 

0401 OOAL 

0402 OOAD B85 
0403 OQOAF A9 
0404 OOB1 sD 
0405 O0H4 A? 
0406 OCOHS AS 
0407 OOBB A4 
0408 OOBRA 88 
0409 OOKRK 18 
0410 OOBRC 90 
0411 OOKE 10 
0412 OO0CO 49 
0413 O00C2 8D 
0414 O00CS CA 
0415 00cé fo 
0416 OOCB 60 
0417 O0C? 


SYMBOL TABLE 


SYMEO! VALUE 
ACCESS BESS 
CHEKLF 0314 
CLRST 0018 
DNRIB A002 
Iit2 O3A8 
FINDMV 0304 
FOUND 0338 
GTMSK 02469 
INTEL o041 
KEYIEN 0389 
LTMSKL oo3L 
NOCHEK O32A 
OK 02C7 
PORTIA A001 
FRESTRT 0204 
ROWSUM 002A 
SHIFT 039D 
TILL A004 
TRAPCK O2nr 
WINTST 0235 


END OF ASSEMBLY 


*, 


286 


32 
33 


F9 


00 AC 


00 AC 


ACR 
CLRALL 
CNTSUB 
NNRIE 
DLY 
FL. 
FREQ 
IER 
INTVEC 
LEILTR 
LTROIN 
NOCNT 
PLAYLP 
PORTiI 
RNODLF 
RWPT2 
SQSTAT 
TEMFI 
TSTLP 


RINT F 


LTIA RNINSCR +X 
STA RNIISCR +t »X 
DEX 

RFL RNDLEP 

RTS 


6 
$ KXKKKK SUBROUTINE ‘TONE’ xeeKKK 


+GENERATES A TONE? 
*MUST BE IN DUR» 


NO. OF 1/2 CYCLES 
ANT 


#WAVELENGTH CONST. IN ACCUMULATOR. 


? 
TONE 


AOOR 
0054 
0339 
ACOQ2 
0297 
OORA 
OO3F 
AQOE 
OSRS 
O36F 
O37F 
O33F 
0212 
A000 
OOAS 
0000 
0021 
0038 
0237 


FREQ 
$F F 
PORTE 
#00 
DUR 
FREQ 


STA 
LIA 
STA 
LIA 
LIX 
Ly 
LEY 
CLC 
BCC 
HNE 
EOR 
STA 
Nex 
RNE 
RTS 
»ENT 


K+2 
FL 
#6FF 
PORT3R 


FLA 


ARTROW 


LIGHT 
MOVNUM 
OLUMSN 
FLAYR 
PORT3E 
RNIMY 
RWET2 
START 
TEMP? 
UFTATE 


0359 
0940 
0224 
O3h4 
0303 
OORS 
6100 
0050 
A4GZE 
03°83 
OO3A 
0040 
OO3EB 
ACO0 
O2F2 
9908 
0200 
9939 
0340 


AMAL YZ 
CLARIF 
CnRiA 
Teh. 
DUR 
FNMTCH 
GNARL 
INTEN 
TRAVL 
L.TMSKH 
NOBLANK 
ONDRNT! 
FLRMY 
RANDOM 
RNISCK 
RWFT 2 
TICH 
TONE 
WIN 


QOOT 
O%00 
NONOT 
OSNG 
QOSE 
OS2F 


Fig. 11.30: Tic-Tac-Toe Program (Continued) 
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Add with carry 

Logical AND 
Arithmetic shift left 
Branch if carry clear 
Branch if carry set 
Branch if result = 0 
Test bit 

Branch if minus 
Branch if not equal to 0 
Branch if plus 

Break 

Branch if overflow clear 
Branch if overflow set 
Clear carry 

Clear decimal flag 
Clear interrupt disable 
Clear overflow 

Compare to accumulator 
Compare to X 

Compare to Y 
Decrement memory 
Decrement X 
Decrement Y 

Exclusive OR 
Increment memory 
Increment X 

Increment Y 

Jump 


6502 INSTRUCTIONS— ALPHABETIC 


Jump to subroutine 
Load accumulator 
Load X 

Load Y 

Logical shift right 
No operation 

Logical OR 

Push A 

Push P status 

Pull A 

Pull P status 

Rotate left 

Rotate right 

Return from interrupt 
Return from subroutine 
Subtract with carry 
Set carry 

Set decimal 

Set interrupt disable 
Store accumulator 
Store X 

Store Y 

Transfer A to X 
Transfer A to Y 
Transfer SP to X 
Transfer X to A 
Transfer X to SP 
Transfer Y to A 
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Appendix B 


6502 INSTRUCTION SET—HEX AND TIMING 


(") 
(4) 


(2) 
(2) 
(2) 


(2) 
(2) 
(2) 


co 





(1} Add ? ton if crossing page boundary 
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APPENDIX 


PROCESSOR 
STATUS CODES 











{2} Add 2 ton if branch withrn page 
Add 3 to n if branch to another page 
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ACCESS, 170 

Ad hoc algorithm, 239 

Ad hoc programming, 238 
Analytical algorithm, 225 

ANALYZE, 263 

Array, 122 

Artificial intelligence, 224 
Assembler, 47 

Assembly, 12 

Audio feedback, 163 


Auxiliary Control Register, 174 


BEO, 154 

Binary number, 41 
Blackjack, 189 

Blackjack Program, 212 
BLIN 

Blink masks, 175 
BLINKER, 208 

Blinking, 274 

Blinking LEDs, 261 

Blip counter, 92 

Board analysis flowchart, 242 
Bounce, 13 
Bracket-filtering, 150 
Carry, 206 

Cassette recorder, 4 

CLI, 174 

CNTSUB, 55 
Complement, 73 
Complementation Table, 80 
Computing the Status, 271 
Constant symbols, 47 
Counter, 65, 101 
COUNTSUB, 273 
Current limiters, 11 
Decimal mode, 151 
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Decision tables, 225 
DELAY, 56, 132, 211, 278 
Delay constant, 103 
Diagonal trap, 244 
Diagonals, 266 
DISPLAY, 118 

DISPLY, 119 
Do-nothing, 55 

Draw, 222 

Dual Counter, 92 
Duration, 148 

DURTAB, 144 

ECHO, 137 

Echo, 35 

Echo Program, 145 

ESP Tester, 139 

EVAL, 118, 126, 153 
Evaluating the board, 225 
Extra Sensory Perception, 139 
FINDMYV, 264, 269 
FINDMV flowchart, 270 
First move, 235 

Free run, 198 
Free-running, 198 
Free-running mode, 171, 256 
Frequencies, 25 
Frequency, 22, 261 


Frequency and duration constants, 161 


Games Board, 2, 7 
GETKEY, 13, 149 
GETKEY Program, 17 
GMBRD, 252 
Heuristic strategy, 225 
Hexadecimal, 41 
Hexguess Program, 63 
IER, 171 


IFR, 171 

Illegal key closure, 95 

Index, 159 

Indexed addressing, 37, 39, 122, 126 
Initialization, 198 
INITIALIZE, 279 
Intelligence level, 252, 260 
Interconnect, 4 

Interrupt, 198, 252, 261 
Interrupt Handler, 183, 211 
Interrupt handling, 198, 279 
Interrupt Registers, 174 
Interrupt-enable register, 256 
Interrupt-enabler, 171, 179, 256 
IQ level, 245, 265 

Jackpot, 100 

JMP, 154 

Key closure, 277 

Keyboard, 7 

Keyboard input routine, 13 
Labels, 47 

Latch, 65 

LED #9, 123 

LED Connection, 10 

LEDs, 8 

Levels of difficulty, 8 
LIGHT, 118, 132, 157, 274, 278 
LIGHTER, 276 

LIGHTR, 207 

LITE, 70, 182 

Loop counter, 92 

LOSE, 130 

Magic Square, 73 
MasterMind, 162 

Middle C, 23 

Mindbender, 162 
Mindbender Program, 184 
MOVE, 47 

Multiplication, 122 

Music Player, 20 

Music Program, 31 

Music theory, 23 

Nested loop delay, 39 
Nested loop design, 25 
NOTAB, 144 

Note duration, 159 

Note frequency, 159 

Note sequence, 139 
Parameters, 149 


INDEX 


Parts, 11 

Perfect square, 73 

PLAY, 48, 53 

PLAYEM, 37 

Playing to the side, 24 

PLAYIT, 30, 38 

PLAYNOTE, 30 

PLRMYV, 277 

Potential, 225 

Power supply, 4 

Programmable bracket, 101 

Prompt, 42 

Protected, 170 

Protected area, 170 

Pulse, duration, 171 

RANDER, 210 

RANDOM, 57, 135, 150, 159, 209 

Random moves, 241 

Random number, 54, 65, 78, 118, 267 

Random number generator, 57, 1 18, 
149 

Random pattern, 73 

Random move, 267 

Recursion, 211 

Repeat, 13 

Resistors, 11 

RNDSCR, 252 

Row sequences, 251 

Row-sum, 239, 271 

SBC, 206 

Scratch area, 57 

Score, 107, 128 

Score table, 107, 111, 112 

SCORTB, 127 

Seed, 118, 149 

74154, 8 

7416, 8 

Shifting loop, 158 

SHOW, 152 

Side, 267 

Simple tunes, 21 

Siren, 100 

Slot Machine, 99 

Slot Machine Program, 113 

Software filter, 175 

Special decimal mode, 150 

Spinner, 87 

Spinner Program, 93 

SQSTAT, 252 
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Square status, 269 
Square wave, 22 
Strategy, 225 

SYM, 4 

TICL, 6, 83 

TIL-L, 65 

Threat potential, 226 
Tic-Tac-Toe, 218 
Tic-Tac-Toe Flowchart, 248 
Tic-Tac-Toe Program, 280 
TIMER, 65 

Timer, 65, 83, 198, 256 
Timer 1, 175 

TONE, 39, 70, 130, 135 
Translate, 41 

Translate Program, 49 
Trap, 235, 239, 264, 267 
Trap pattern, 241 
Two-level loop, 211 
Two-ply analysis, 237 
Unprotect system, 198 
UPDATE, 273 

Value computation, 226 
VIA, 8 

VIA memory map, 66 
Visual feedback, 163 
WAIT, 98 

Wheel pointer, 103, 120 
WIN, 128 

Win, 259 

Win potential, 225 
WINEND, 129 
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